Error in VBA Code using Excel 2021

[microhunt]

I keep getting an error when I run this in Excel. Can anyone see the problem?

Option VBASupport 1
Sub ClearChecks_Q()
Dim CB As CheckBox
For Each CB In ActiveSheet.CheckBoxes
If Not Intersect(CB.TopLeftCell, Range("V6:X1077")) Is Nothing Then
CB.Value = xlOff
End If
Next CB
End Sub

 

[Fluff]

There is no such thing as Option VBASupport 1 in VBA. Are you trying to run this in Libre, or Open Office as per your other threads?

 

[microhunt]

Glad you spotted this I copied macro back to excel from the open office and obviously corrupted my excel sheet Unfortunately I have no backup of this sheet.

Kind Regards

Microhunt

 

[microhunt]

Will this work then do you think?

Sub ClearChecks_Q()
Dim CB As CheckBox
For Each CB In ActiveSheet.CheckBoxes
If Not Intersect(CB.TopLeftCell, Range("V6:X1077")) Is Nothing Then
CB.Value = xlOff
End If
Next CB
End Sub

 

[Fluff]

Best way to find out, is to try it.

 

[microhunt]

Best way to find out, is to try it.

Look like I will not be using Open Office again. Now none of my excel sheets work.

 

[Fluff]

Glad it's sorted & thanks for the feedback.