サブルーチンに2つの値を渡す

Question

target.valueとtarget.addressをサブルーチンに渡そうとしていますが、何らかの理由で「Expected：=」というエラーが発生しています。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address = "$A$2" Then 
     sendToRoutine (Target.Address, Target.Value) <<== Error 
    End If 
End Sub 


Sub sendToRoutine (myTarget as String, myTargetValue as String) 
    'Do Something with the values.... 
End Sub 

Answer 1

あなたの機能の前にはCallがありません。

Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address = "$A$2" Then 
     Call sendToRoutine(Target.Address, Target.Value) '<<== Not an error 
    End If 
End Sub 


Sub sendToRoutine(myTarget As String, myTargetValue As String) 
    'Do Something with the values.... 
End Sub