Makrostart verhindern

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaBereich As Range
Set RaBereich = Range("B8:B11, B18:B21, B28:B31, B38:B41")
If Not Intersect(Range(Target.Address), RaBereich) Is Nothing Then frmCalendar0.Show  _
vbModeless
Set RaBereich = Nothing
End Sub

Nun werden in einem anderen Code auch die im oben genannten Makro angesprochenen Zellen mit angesprochen, so dass sich dann immer die UserForm frmCalendar0 öffnet. Wie kann ich dass verhindern?
Ich danke allen für eventuell zahlreiche Lösungsvorschläge!!!
Gruß Frank H.