How to uncheck all boxes except for a specific row

[NeonLemon]

I currently have a worksheet that has check boxes in columns A, B, and C. I have a macro set to uncheck all the boxes on the sheet however I am wanting to exclude column A so that those boxes will remain checked at all times. Is there a way to do this? I'm very new to using VBA and any help would be greatly appreciated.

This is the code I am using to uncheck the boxes:

Sub ClearCheckBoxes()
'Updateby Extendoffice
Dim chkBox As Excel.CheckBox
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.CheckBoxes
chkBox.Value = xlOff
Next chkBox
Application.ScreenUpdating = True
End Sub

 

[Siddharth Rout]

You mean like this?

Option Explicit

Sub ClearCheckBoxes()
    'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
        If Not chkBox.TopLeftCell.Column = 1 Then chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

 

[NeonLemon]

You mean like this?

Option Explicit

Sub ClearCheckBoxes()
    'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
        If Not chkBox.TopLeftCell.Column = 1 Then chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

That is PERFECT thank you so much!!

You've just made my day

 

[Siddharth Rout]

That is PERFECT thank you so much!!

You've just made my day

You are welcome. Thanks for letting us know