Edit Macro so "Picture 1" is Visible

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

There is one problem with the Picture 1 Visible line. The dropdown that links to all other sheets that have the pictures is a input sheet that all other sheets are linked to. When the picture changes it is done by changing the name on the input tab. Therefore the picture is not on active sheet. Is there any way to indicate Visible Picture 1 for all tabs?

Solved thanks for all the Help