I'll try this again...
Dim spincnt As Integer
Private Sub SpinButton1_SpinDown()
spincnt = spincnt - 1
If spincnt < 1 Then
spincnt = 1
End If
With Sheets("Sheet1").Image1
.Picture = PicCollect(spincnt)
End With
End Sub
Private Sub SpinButton1_SpinUp()
spincnt = spincnt + 1
If spincnt > PicCollect.Count Then
spincnt = PicCollect.Count
End If
With Sheets("Sheet1").Image1
.Picture = PicCollect(spincnt)
End With
End Sub
I think U missed the Spincnt variable declaration at the top of the module. Apologies, the site wouldn't let me post the code correctly or edit it last pm. The code I posted works with my trialled .gif files on my 32 bit install. Dave