Excel Checkbox -VBA caption reference

[trazer985]

Private Sub CheckBox40_Click()


    Sheets("CheckBox40.Caption").Visible = CheckBox40.Value
End Sub

I am using a macro to name the sheets the same as the captions, so they will have the same name. I just want it to make the sheet it shares a name with visible, but this errors out on me.

I'm sure the fix is very simple, but can't figure it out. (Runtime error 9 subscript out of range)

Regards

T

 

[Norie]

Try this.

Private Sub CheckBox40_Click()
    Sheets(CheckBox40.Caption).Visible = CheckBox40.Value
End Sub

 

[trazer985]

Try this.

Private Sub CheckBox40_Click()
    Sheets(CheckBox40.Caption).Visible = CheckBox40.Value
End Sub

Thank you, worked perfectly, with the added bonus of making me feel a lil bit stoopid.