Uncheck a Check Box using VBA

Hi
I have a code which I am trying to use to uncheck a check box but keep getting the error "Unable to get the CheckBoxes property of Worksheet class"

Can anyone help?

 Sub Checkbox_Uncheck()

    Dim Response As VbMsgBoxResult
      
    If Range("A1") = True Then
        Response = MsgBox("Have you cleared all queries allocated to you?", vbQuestion + vbYesNo)
        If Response = vbNo Then
            MsgBox "Please clear all queries before you sign off.", vbInformation
            Sheets("Sheet1").CheckBoxes("Checkbox1").Value = False
        Else
            'Call Reload_financials
        End If
    Else
    End If

End Sub

Hello ashmott,

There were 2 problems with the code. One, the control being used is a Forms control.. You can not use False to uncheck a Forms control. You must use the Excel constant xlOff. Two, you had the control name wrong. It is "Check Box 1", not "CheckBox1". Here is the corrected and working code.

 Sub Checkbox_Uncheck()

    Dim Response As VbMsgBoxResult
      
    If Range("A1") = True Then
        Response = MsgBox("Have you cleared all queries allocated to you?", vbQuestion + vbYesNo)
        If Response = vbNo Then
            MsgBox "Please clear all queries before you sign off.", vbInformation
            Worksheets("Sheet1").CheckBoxes("Check Box 1").Value = xlOff
        Else
            'Call Reload_financials
        End If
    Else
    End If

End Sub