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

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




On Oct 23, 1:26*pm, Charlie <Char...@discussions.microsoft.com> wrote:
> 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

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

regards
FSt1

"Charlie" wrote:

> 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

hrmm...Still does absolutely nothing when checked and unchecked.

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

"FSt1" wrote:

> hi
> i just plugged your code into my 2003 and it works??????
> what problems are you haveing with it.
>
> regards
> FSt1
>
> "Charlie" wrote:
>
> > 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

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


On Oct 23, 1:58*pm, Charlie <Char...@discussions.microsoft.com> wrote:
> 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
>
>
>
> "FSt1" wrote:
> > hi
> > i just plugged your code into my 2003 and it works??????
> > what problems are you haveing with it.
>
> > regards
> > FSt1
>
> > "Charlie" wrote:
>
> > > 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- Hide quoted text -
>
> - Show quoted text -

Aghh haah! that was it, I grabbed the wrong checkbox. boo... Thanks!

"Susan" wrote:

> 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
>
>
> On Oct 23, 1:58 pm, Charlie <Char...@discussions.microsoft.com> wrote:
> > 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
> >
> >
> >
> > "FSt1" wrote:
> > > hi
> > > i just plugged your code into my 2003 and it works??????
> > > what problems are you haveing with it.
> >
> > > regards
> > > FSt1
> >
> > > "Charlie" wrote:
> >
> > > > 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- Hide quoted text -
> >
> > - Show quoted text -
>
>

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

"Charlie" wrote:

> 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