Fehler beim Komplieren

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$2" Then Call suchen
If Target.Address = "$A$3" Then Call sort
If Target.Address = "$A$5" Then Call abmelden
If Target.Address = "$A$7" Then Call PassNew.Show
Cancel = True
End Sub

Doppelklickt man nun eine der Zellen kommt es zum Fehler. Das Ausführen der aufzurufenen Makros aus dem VBA-Editor funktioniert aber.
Wie muß ich das abändern, damit es in XL2007 auch funktioniert?
Danke, Thomas