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