Событие рабочего листа - BeforeDoubleClick

Question

Следующий код дает мне ошибку, и я не могу понять, почему:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Style = "Good" Then
       Target.Style = "Normal"
    Else
       Target.Style = "Good" 
    End If

    Cancel = True

End Sub

Когда я дважды щелкаю в ячейке, ошибка появляется в строке Target.Style = "Good" после Else, сообщая мне

«Ошибка 450: неверное количество аргументов или неправильное присвоение свойства».