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!