右クリックイベントエラー

Question

作成した右クリックイベントでは、「プロシージャ宣言が、同じ名前のイベントまたはプロシージャの説明と一致しません」というエラーメッセージが表示されます。

私の目標は、セルを右クリックし、別のシートからの列のカウントをターゲットセルに入力することです。

私の欠点は何ですか？

Sub Worksheet_BeforeRightClick(ByVal Target As Range) 
Dim wb As Workbook 
Dim i As Long 

Set wb = Workbooks("Calc.xlsm") 

EventState = Application.EnableEvents 
Application.EnableEvents = True 

Target.Address = Application.count(wb.Sheets("Carrier").Range("O:O")) 


End Sub 

Answer 1

エラーメッセージはかなり明確です。あなたのイベントハンドラのプロトタイプは、Excelと同じではありません。

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

イベントハンドラのシグネチャを変更することはできません。