Checkbox to Hide Column G

C

Charlie

Any Reason why this does not give error or a response? I built it with help
from this forum and everything seems right. Im stumped.

Im using office 2003.
______________________


Private Sub CheckBox20_Click()

If CheckBox20 = True Then
Columns("G").Hidden = True
Else
Columns("G").Hidden = False
End If

End Sub
 
S

Susan

try this:

Private Sub CheckBox20_Click()

If CheckBox20 = True Then
activesheet.Columns("G").Hidden = True
Else
activesheet.Columns("G").Hidden = False
End If

End Sub

:)
susan
 
F

FSt1

hi
i just plugged your code into my 2003 and it works??????
what problems are you haveing with it.

regards
FSt1
 
C

Charlie

i have a check box with that code in it but it does absolutely nothing when i
check it or uncheck it, no error, no column hiding nothing.

-Charlie
 
S

Susan

it worked when i tested it (excel 2000 win xp) using a control toolbox
checkbox....... i just changed the coding to checkbox1 to match my
checkbox.
maybe you are using a forms checkbox?
susan
 
R

redeagle

This sounds like something that would happen to me... seemingly harmless
normal code - not working!

I would try opening a new workbook, add a checkbox, double click it and add
the code. Set a breakpoint on the event and step through the click. If that
works, then I would go through your original workbook and double check for a
naming error. When I first tried your code, I added CheckBox1 to my workbook
and clicked on it but pasted your code referencing Checkbox20 and it didn't
work until I caught the naming conflict.

John
 
Top