Select Case ausführen bei Buchstaben-Eingabe

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
'nur ausführen, wenn D4 geändert wurde:
If Intersect(Target, Range("D4")) Is Nothing Then Exit Sub
'Ergebnis durch Eingabe in Zelle
Select Case Range("D4")
Case 0 'Ausblenden
Sheets("Tabelle2").Visible = False
Sheets("Tabelle3").Visible = False
Sheets("Tabelle4").Visible = False
Case 1 'Anzeigen 'wenn hier A steht funktioniert es nicht mehr
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = False
Sheets("Tabelle4").Visible = False
Case 2 'Anzeigen 'wenn hier B steht funktioniert es auch nicht
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = True
Sheets("Tabelle4").Visible = True
Application.ScreenUpdating = True
End Select
End Sub