El código que me funciona sería así:
La siguiente rutina me funciona bien pero no me deja meter menos de un segundo y va muy lento:
…
ActiveSheet.Shapes("Imagen 1").Visible = True
Call Pausa
ActiveSheet.Shapes("Imagen 2").Visible = True
Call Pausa
ActiveSheet.Shapes("Imagen 3").Visible = True
Call Pausa
…
Sub Pausa()
NewHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(NewHour, newMinute, newSecond)
Application.Wait waitTime
End Sub