bobm,
I am not one of the VBA experts, but if your range is in a column and
your checkbox is from the control toolbox and not from the Forms
toolbar this code should work.
Private Sub CheckBox1_Click()
Dim i As Boolean
Dim rng1 As Range
Application.DisplayAlerts = False
i = CheckBox1.Value
Set rng1 = Range("D1:D25") 'Change to suit your needs
If i = True Then
rng1.EntireColumn.Hidden = True
Else
rng1.EntireColumn.Hidden = False
End If
Application.DisplayAlerts = True
End Sub
--
Casey
------------------------------------------------------------------------
Casey's Profile:
http://www.excelforum.com/member.php...fo&userid=4545
View this thread:
http://www.excelforum.com/showthread...hreadid=478267