Excel - Vis billede ud fra celleværdi

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim shpTemp As Shape, lTop As Long, lTeft As Long, lWidth As Long, lHeight As Long
    If Target.Address = "$A$1" Then
        lTop = Range("A1").Top
        lleft = Range("A1").Left
        lWidth = 50
        lHeight = 50
        ActiveSheet.Pictures.Delete
        sti = ThisWorkbook.Path

        Select Case Target
            Case Is < 1, 0
              Set shpTemp = ActiveSheet.Shapes.AddPicture(sti & "\billede 1.gif", True, False, lleft, lTop, lWidth, lHeight)
            Case Is > 1, 0
                Set shpTemp = ActiveSheet.Shapes.AddPicture(sti & "\billede 2.gif", True, False, lleft, lTop, lWidth, lHeight)
            Case Else
              Exit Sub
        End Select
        Set shpTemp = Nothing
    End If

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim shpTemp As Shape, lTop As Long, lTeft As Long, lWidth As Long, lHeight As Long
    If Target.Address = "$A$1" Then
        lTop = Range("A1").Top
        lleft = Range("A1").Left
        lWidth = 50
        lHeight = 50
        ActiveSheet.Pictures.Delete
        sti = ThisWorkbook.Path

        Select Case Target
            Case Is < 1, 0
              Set shpTemp = ActiveSheet.Shapes.AddPicture(sti & "\billede 1.gif", True, False, lleft, lTop, lWidth, lHeight)
            Case Is > 1, 0
                Set shpTemp = ActiveSheet.Shapes.AddPicture(sti & "\billede 2.gif", True, False, lleft, lTop, lWidth, lHeight)
            Case Else
              Exit Sub
        End Select
        Set shpTemp = Nothing
    End If
End sub