I am not sure how to edit this macro so that "Picture 1" will be visible. Currently all the pictures are not visible except for the one that is found in cell H1. Picture 1 will always be visible and the other pictures that change need to be invisible when not selected. 

Option Explicit

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