Jeg kan ikke få denne til at læse resultatet fra en Hvis formel men når jeg skriver 1 eller 2 dirkte ind så virker det hvad skal jeg gøre

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

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