Telefonieren aus Excel

Mit nachfolgenden VBA Code kann man aus Excel telefonieren.

Telefonnummer stehen in Spalte 2 alles funktioniert.

Frage:
Wie kann ich zusätztlich auch aus Spalte 10 hereus telefonieren?

So geht es nicht mit derAuflistung

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2;10 Then ???????????
Anrufen
End If
Cancel = True
End Sub

Sub Anrufen()
Dim A$
A$ = ActiveCell.Value
Telefonieren A, "C:\Windows\Dialer.exe"
End Sub

Gruß Peter