Rätsel mit Makro

Hallo Zusammen!
Ich habe gestern in meine Arbeitsmappe folgendes Makro eingebettet:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
frmanzeigen.Hide
Dim Zelle As Range
Dim RaBereich As Range
If ActiveCell = "" Then
Exit Sub
Else
Set RaBereich = Range("E4:E34, J4:J34, O4:O34, T4:T34, Y4:Y34, AD4:AD34, AI4:AI34, AN4:AN34, _
AS4:AS34, AX4:AX34, BC4:BC34")
If Not Intersect(Range(Target.Address), RaBereich) Is Nothing Then frmanzeigen.Show  _
vbModeless
Set RaBereich = Nothing
End If
End Sub