Adding a menu item right click menu when clicking on a single.
 

sub Trythis()

With Application.CommandBars("Cell")
.FindControl(ID:=21).Enabled = True
With .Controls.Add(Type:=msoControlButton)
.Caption = "Hello"
.OnAction = "Macro_1"
End With
End With

End Sub


Sub Macro_1()
MsgBox "Good Night!", vbInformation + vbOKOnly, "From Andoni wit
Love:"
End Su

--
Message posted from http://www.ExcelForum.com