Thema: select Ereigniss UF Show

Hallo zusammen
Weiss jemand wie ich ein select ereigniss per VBA erzeugen kann, wenn in Zeile D3:D40 eine Zahl eingegeben wird.
Z.B. die Zahl 2 dann soll Userform 1 angezeigt werden, Zahl 51 dann Userform 2 usw.
vielen Dank im vorraus
Fred

hi
dieses Makro im Modul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3:D40")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Value
Case 2
UserForm1.Show
Case 51
UserForm2.Show
Case Else
End Select
End Sub

Gruß, Daniel

Hallo
vielen Dank