Martin

Sub TOGGLECENTERACROSS()
With Selection
If .HorizontalAlignment = xlCenterAcrossSelection Then
.HorizontalAlignment = xlGeneral
Else
Selection.HorizontalAlignment = xlCenterAcrossSelection
End If
End With
End Sub

Assign the above to a button on your toolbar or to a shortcut key combo.


Gord Dibben MS Excel MVP

On Mon, 17 Apr 2006 18:44:40 +0100, "Martin B"
wrote:

I use this feature a lot but it is a lengthy process selecting Format Cells Alignment Horizontal Centre Across Selection
Is there a quick shortcut to use instead of the merge and centre button on the menu bar?

Thanks
Martin