Skifte flere billeder via VBA.

Hej.

Jeg har denne kode til at skifte et billede ud, via et indhold i en bestemt celle.

Private Sub Worksheet_Calculate()
    Dim Billede As Picture
    Me.Pictures.Visible = False
    With Range("F3")
        For Each Billede In Me.Pictures
            If Billede.Name = .Text Then
                Billede.Visible = True
                Billede.Top = .Top
                Billede.Left = .Left
                Exit For
            End If
        Next Billede
    End With
End Sub

Problemmet er at mine andre billeder bliver væk.

Derfor vil jeg gerne kunne indsætte 3 billeder vi opslag?