Hiding / unhiding pictures based on cell value

I can't find object pictures, you can try something like

    Private Sub Worksheet_Calculate()

        Dim oPic As Shape
        With Worksheets("Quiz").Range("L2")
            For Each oPic In Me.Shapes
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left 'Right
                    Exit For
                End If
            Next oPic
        End With
    End Sub