Sub ShowRandom()
Dim i%, upperv%
upperv = ActiveSheet.Pictures.Count
Static rndmzed As Boolean
If Not rndmzed Then
Randomize
rndmzed = True
End If
For i = 1 To upperv
ActiveSheet.Pictures(i).Visible = 0 ' all invisible
Next
ActiveSheet.Pictures(Int(upperv * Rnd + 1)).Visible = 1 ' show one random image
End Sub