Add this simple macro to a module

Sub MergeCells()
Selection.MergeCells = True
End Sub


then run this code

With Application.CommandBars("Cell")
With .Controls.Add(Type:=msoControlButton, temporary:=True)
.BeginGroup = True
.Caption = "Merge Cells"
.OnAction = "MergeCells"
End With
End With


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)
"Matt Swift" <Matt wrote in message
...
I would like to add "Merge Cells" to my right click menu. Thanks for your
help.