Edit a VB to Vlookup a picture

[CraigFord]

i have used the VB code in the link below

http://www.mcgimpsey.com/excel/lookuppics.html

Private Sub Worksheet_Calculate()
        Dim oPic As Picture
        Me.Pictures.Visible = False
        With Range("F1")
            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

the problem i have is the code makes all pictures on the sheet hidden, however there are some pictures on the skeet that need to be shown all of the time, is there a way i can stop some pics being hidden?

 

[CraigFord]

i have done this and it does not achieve quite what i want, this resizes the picture to fit in he cell, what i want is the bottom right corner of the prcture to be in the bottom right of the cell (the pic will be bigger that the cell but that is ok), is this possable

 

[CraigFord]

i have done this and it does not achieve quite what i want, this resizes the picture to fit in he cell, what i want is the bottom right corner of the prcture to be in the bottom right of the cell (the pic will be bigger that the cell but that is ok), is this possable

ignore that it works prefectly thanks