Billeder i Excel

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("M2").Top
        lleft = Range("M2").Left
        lWidth = 50
        lHeight = 50
        ActiveSheet.Pictures.Delete
        sti = ThisWorkbook.Path

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