I have this in my personal.xls with a custom toolbar button assigned on my top toolbar

Sub CenterAcross()
Selection.HorizontalAlignment = xlCenterAcrossSelection
End Sub

--
Don Guillett
SalesAid Software

"Martin B" wrote in message ...
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