Select/Deselect All Checkboxes in Filtered View

[Betsy111]

Hello:

I have an Excel spreadsheet that has a long list of check boxes. I have set up a "Select/Deselect All" check box (i.e., a master check box) that allows me to select and deselect all check boxes in the spreadsheet. But, instead of selecting/deselecting all check boxes in the spreadsheet, I only want the master check box to select/deselect the check boxes showing when the spreadsheet is filtered. Any help would be appreciated.

Below is the code used to set up my master check box:

Sub AllCheckboxes()

Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes

If cb.Name <> ActiveSheet.CheckBoxes("Check Box 1952").Name Then
cb.Value = ActiveSheet.CheckBoxes("Check Box 1952").Value
End If

Next

End Sub

 

[Domenic]

Try...

Sub AllCheckboxes()

    Dim cb As CheckBox
    
    For Each cb In ActiveSheet.CheckBoxes
        If cb.TopLeftCell.EntireRow.Hidden = False Then
            If cb.Name <> ActiveSheet.CheckBoxes("Check Box 1952").Name Then
                cb.Value = ActiveSheet.CheckBoxes("Check Box 1952").Value
            End If
        End If
    Next

End Sub

Hope this helps!

 

[Betsy111]

Amazing!! Thank you so much, Domenic!

 

[Domenic]

You're very welcome, cheers!