Displaying Images dependant on value of a cell

Hi,

After searching for a method on displaying images based on the value of a cell, I stumbled upon a great guide and example sheet at http://www.mcgimpsey.com/excel/lookuppics.html
This worked great but I now have a problem with the macro.

I am trying to do similar to the example sheet but I have 5 different drop down lists of names and I want it to display images for each name selected.
After playing around and managing this my next problem arose.
If I selected the same name it would hide the image displayed for the previous identical name and I do not wish this to happen.

The macro used on example is this one

Formula:

    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

F1 references the Cell that displays the name of the picture that it will display.

I wish it to do this 5 times referencing cells, F1,F2,F3,F4,F5 and therefore displaying 5 pictures but if any of the cells are equal to the other, I don't want it to hide the previous identical cells image.
My Macro is:-

Formula:

    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

        With Range("F2")

            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

        With Range("F3")

            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

        With Range("F4")

            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

        With Range("F5")

            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

How can I change this so as not to hide a previous image if the next cell is the same?
Thankyou and I hope someone can help.