Sub MyMerge()
On Error Resume Next
Selection.Merge
End Sub
Sub TurnOnMyMerge()
Application.MacroOptions "MyMerge", ShortcutKey:="M"
End Sub
Sub TurnOffMyMerge()
Application.MacroOptions "MyMerge", ShortcutKey:=""
End Sub
Great tips -- especially F4 -- thanks!
But there is a built-in excel keyboard shortcut for merge cells: Alt-Enter