Get rid of your TestPicsDictionary testing code...the pics are in a collection already so no need for dictionary code. Go to the control toolbox (developer view) and insert/select the active X image control, select your sheet and size the control. Select an Active X spinbutton control then select your sheet. Paste this code to your sheet code. Use the operating code previously posted to load the collection. The spinbutton will loop U through all your pics in the image control. Dave'**change sheet name to suit 
Dim spincnt As IntegerPrivate Sub SpinButton1_SpinDown()spincnt = spincnt - 1If spincnt < 1 Thenspincnt = 1End IfWith Sheets("Sheet1").Image1.Picture = PicCollect(spincnt)End WithEnd SubPrivate Sub SpinButton1_SpinUp()spincnt = spincnt + 1If spincnt > PicCollect.Count Thenspincnt = PicCollect.CountEnd IfWith Sheets("Sheet1").Image1.Picture = PicCollect(spincnt)End WithEnd Sub