Changing all checkboxes with no value to False: VBA Code

[mday1]

I have over 100 activeX checkboxes on a sheet. Some of the checkboxes are already checked/unchecked so I want the macro to ignore those. I found a macro to change all checkboxes to false but I'd like to modify the code to only change the value to False if the Value field in the properties box is blank. I tried modifying .Value = Null but it didn't work. Here is the code I found:

Sub Clear_Checkboxes()

For Each ckb In ActiveSheet.OLEObjects
    'Will change True, tried Null but doesn't work
    If ckb.Object.Value = True Then
        
        ' set checkbox to false
        ckb.Object.Value = False
   
     End If

Next ckb

End Sub

 

[Domenic]

Use the IsNull function instead...

If IsNull(ckb.Object.Value) Then

Hope this helps!

 

[mday1]

Use the IsNull function instead...

If IsNull(ckb.Object.Value) Then

Hope this helps!

That worked beautifully. Thank you!

 

[Domenic]

You're very welcome, cheers!