Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim cBut As CommandBarButton
Dim cBut2 As CommandBarButton
Dim cBut3 As CommandBarButton
On Error Resume Next
With Application
.CommandBars("Cell").Controls("Copy to CallSign").Delete
.CommandBars("Cell").Controls("Copy to Personnel").Delete
.CommandBars("Cell").Controls("Copy to Driving Hx").Delete
Set cBut = .CommandBars("Cell").Controls.Add(Temporary:=True)
Set cBut2 = .CommandBars("Cell").Controls.Add(Temporary:=True)
Set cBut3 = .CommandBars("Cell").Controls.Add(Temporary:=True)
End With
With cBut2
.Caption = "Copy to CallSign"
.Style = msoButtonCaption
.OnAction = "Copy2CallSign"
End With
With cBut
.Caption = "Copy to Personnel"
.Style = msoButtonCaption
.OnAction = "Copy2Personnel"
End With
With cBut3
.Caption = "Copy to Driving Hx"
.Style = msoButtonCaption
.OnAction = "Copy2DriverHx" '*******************************
End With
On Error GoTo 0
End Sub