There is no Icon for "center across selection".

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

Assign this macro to a button.


Gord Dibben Excel MVP

On Wed, 30 Nov 2005 06:06:01 -0800, no merge dan <no merge
wrote:

I miss the old icon and am not a fan of merged cells. any suggestions for
creating an icon for "center across selection" icon that does not merge cells?