Wait for image to change using VB

Hi,
I wrote some code to change an image in my spreadsheet based on an input in a cell. The image is set to 1 then prints, change to image 2 then prints, change to image 3 then prints, ect...

When I step through the code manually everything works perfectly; however, when I use the command button to run the code the images do not change. I have already tried screenupdating which did not work.

Is there a way to wait until image changed before going to next command?