Just use:

Sub M_snb() 
  [A1:A15]="=rand()" 
  sn=[index(rank(A1:A15,A1:A15),)]

  for j=1 to 15
    Me("Image" & j).Picture = LoadPicture("V:\CGC_DATA\Images\picture" & sn(j,1) & ".jpg")
  next
End Sub