Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Jeg kan ikke få dette til at køre på samme ark. hvad er fejlen

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$14" Then
        lTop = Range("b14").Top
        lleft = Range("b14").Left
        lWidth = 200
        lHeight = 155
        ActiveSheet.Pictures.Delete
        sti = ThisWorkbook.Path

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

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 = "$b$7" Then
        lTop = Range("E7").Top
        lleft = Range("E7").Left
        lWidth = 200
        lHeight = 155
        ActiveSheet.Pictures.Delete
        sti = ThisWorkbook.Path

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