I have a button created from the ControlBox that has in its Caption
properties HIDE.
The Hide Button looks very rich (dark and bold) as is (When I open the
Workbook).
It is working Ok based on the code below.
Only problem is when I click it (Hide) it hides columns DFJ and L and
changes to UNHIDE, but the UNHIDE box now looks anemic, the borders
especially (with the grayed-out look).. What am I missing to have it look
comparable to my HIDE button look?


Private Sub ToggleButton1_Click()
With Range("D:D,F:F,J:J,L:L")
If ToggleButton1.Value = True Then
.EntireColumn.Hidden = True
ToggleButton1.Caption = "Unhide"
Else
.EntireColumn.Hidden = False
ToggleButton1.Caption = "Hide"
End If
End With
End Sub