Fehler beim before doubleklick

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If ActiveCell.Range = "A1" Then
Selection.Interior.ColorIndex = 35
End If
End Sub

bringt er mir aber den Fehler das
"Argument ist nicht optional"

Bin mal wieder überfordert

danke schonmal

Gruß

Tobi