Solved: Hide/show column base on checkbox caption

[Designer6]

Hi all,

Is there a way i could show or hide a colum on a worksheet base on a selected checkbox caption ?

For example,

General worksheet has four labels "Friend, Customer, Return, Old"

four checkboxes on a userform with the same caption

Thanks,
V

[Bob Phillips]

[vba]

Private Sub chkFriend_Click()
With Worksheets("Friend")

If Me.chkFriend Then

.Visible = xlSheetVisible
Else

.Visible = xlSheetHidden
End If
End With
End Sub
[/vba]

etc.

[Designer6]

Hello XLD,
Thanks for the reply
i am sorry what i meant is a worksheet labels "General" and in that worksheet i have four labels each at a different column. A userform with four labels as mentioned above and a "OK" button to proceed

[Bob Phillips]

You said userform.

Now you have lost me completely.

[Designer6]

You said userform.

Now you have lost me completely.

Sorry for my poor explainations. One more try

Userform has four checkboxes and a button with the following captions:
- Customer
- Return
- Friend
- Old
- "Ok" button

worksheet labels as "General" and it has the following names at different cell location
- customer
- Return
- Friend
- Old

Let's say i select checkboxes with caption "Friend" ,"Old" on the userform and hit "OK". On the "General" worksheet it should make the columns with those same names visible and hide the others.

I am able to code it base on whether the checkbox is true or fail but can't do it via checkbox caption

[Designer6]

Thanks for all your help guys i got this part working. Below is a sample

If CheckBox2.Value = True Then
    B = CheckBox2.Caption
        If Not Sheets(Sheet).Cells.Find(B) Is Nothing Then MsgBox "I found you"
            Range(B).EntireColumn.Hidden = False