Using CheckBox.Caption to determine the workseet name

Hi,

I have many checkboxes named under the file's worksheets. May I use CheckBox.Caption in order to go to a worksheet?

My suggestion would be like that, but it's not working:

Sub checkboxes()

Dim i As Integer
    For i = 1 To 5
        If ActiveSheet.OLEObjects(i).Object.Value = True Then
           ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
           Sheets("ActiveSheet.OLEObjects(i).Object.Caption").Select
           Sheets("MAJ").Select
           Range("A1").Select
        End If
    Next i

End Sub

See an example in the file attached.

Thanks for your help!

What happened when you tried it?

Oh, I see the problem. As written "ActiveSheet.OLEObjects(i).Object.Caption" is being passed as a literal string.
If you want to go to the sheet whose name is the caption, use this

Sheets(ActiveSheet.OLEObjects(i).Object.Caption).Select

Check the sheet names against the checkbox captions:

Sub BensDebug()
    Dim i As Long
    Debug.Print "Sheet Name", "Name Length"
    For i = 1 To Sheets.Count
        Debug.Print Sheets(i).Name, Len(Sheets(i).Name)
    Next i
    
    Debug.Print
    Debug.Print "Caption Text", "Caption Text Length"
    
    For i = 1 To 5
        Debug.Print ActiveSheet.OLEObjects(i).Object.Caption, Len(ActiveSheet.OLEObjects(i).Object.Caption)
    Next i
End Sub

Results:

Sheet Name    Name Length
 RA01          5 
 RA02          5 
 RA03          5 
 RA04          5 
 RA05          5 
MAJ            3 

Caption Text  Caption Text Length
RA01           4 
RA02           4 
RA03           4 
RA04           4 
RA05           4

Notice the spaces at the beginning of the actual sheet names, ergo, the caption <> sheet.name