"Center Across Selection" icon in excel 2003

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Back
Top