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?

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?