Bilder lassen sich nicht mehr ein/ausbelnden

Private Sub Worksheet_Calculate()
Dim b As Byte
For b = 1 To 8
Me.Shapes("Bild " & b).Visible = False
Next
Select Case [BG1]
Case 1: Me.Pictures("Bild 1").Visible = True
Case 2: Me.Pictures("Bild 2").Visible = True
Case 3: Me.Pictures("Bild 3").Visible = True
Case 4: Me.Pictures("Bild 4").Visible = True
Case 5: Me.Pictures("Bild 5").Visible = True
Case 6: Me.Pictures("Bild 6").Visible = True
Case 7: Me.Pictures("Bild 7").Visible = True
Case 8: Me.Pictures("Bild 7").Visible = True
End Select
End Sub

Dies Funktioniert leider nun nicht mehr !
Warum kann ich mir nicht erklären.
Alle Bilder 1 bis 8 sind vorhanden.
Es tritt eine Fehlermeldung auf:
Me.Shapes("Bild " & b).Visible = False
Laufzeitfehler -21470 bla bal...
Das Elemet mit angegebenem name wurde nicht gefunden.
Kann mir iregnd jemand erklären was hier passiert ist. bzw. wie ich dies wieder zum laufen bekomme.
Danke im voraus
Ralph