Inserting images into a cell based on another cells value.

I found this macro on the web. I use in my spreadsheet now. It's a great program to use and it works well but does anyone know how to make it perform for more than 1 cell at a time? "multiple cells at a time?"

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