How to find the location of "Check Box 2110" in my workbook?

[jplank]

I have inherited a complex financial model. The model contains 50+ sheets, several of which are hidden by default. There is a line in the vba code:

[Check Box 2110].value = True

My question is - how can I (using vba or otherwise) find the location of Check Box 2110. Sorry if this is a really simple question, but I've genuinely been spending hours on this. Google has shown me results related to adding a checkbox to a workbook or using vba to toggle whether it's checked or not, but I haven't had any luck finding techniques to actually find the checkbox.

Any help is appreciated. Thank you.

 

[eiloken]

I have inherited a complex financial model. The model contains 50+ sheets, several of which are hidden by default. There is a line in the vba code:

[Check Box 2110].value = True

My question is - how can I (using vba or otherwise) find the location of Check Box 2110. Sorry if this is a really simple question, but I've genuinely been spending hours on this. Google has shown me results related to adding a checkbox to a workbook or using vba to toggle whether it's checked or not, but I haven't had any luck finding techniques to actually find the checkbox.

Any help is appreciated. Thank you.

i create code to loop through each sheet and find check box 2110 then select it and print its worksheet name and top left cell location

Sub test() 'if your check box is oleobject
    Dim ws As Worksheet
    Dim oleObj As OLEObject
    For Each ws In ActiveWorkbook.Sheets
        For Each oleObj In ws.OLEObjects
            If oleObj.Name = "Check Box 2110" Then
                With oleObj
                    .Visible = True
                    .Select
                    Debug.Print .Parent.Name
                    Debug.Print .TopLeftCell.Address
                End With
            End If
        Next oleObj
    Next ws
End Sub

Sub test2() 'if your checkbox is forms control
    Dim ws As Worksheet
    Dim cb As CheckBox
    For Each ws In ActiveWorkbook.Sheets
        For Each cb In ws.CheckBoxes
            If cb.Name = "Check Box 2110" Then
                With cb
                    .Visible = True
                    .Select
                    Debug.Print .Parent.Name
                    Debug.Print .TopLeftCell.Address
                End With
            End If
        Next cb
    Next ws
End Sub

 

[jplank]

Thank you!!! It worked perfectly.