One VBA/Macro to check all boxes from other worksheets?

[tuna666]

Hi,

I am not very Excel savvy but have managed to get my way around most functions and I'm learning very quickly!

I need help with creating a VBA/Marco that can call functions from other worksheets, if that is at all possible?

I currently have a workbook which contain several checkboxes. On each worksheet I have already made a 'Select All' and 'Unselect All' button using VBA that checks and unchecks all check boxes on the worksheet in question.

The VBA I used for checking all boxes are:

Sub CheckAll()

Dim cb As CheckBox



    If ActiveSheet.CheckBoxes("Check Box 1").Value Then

    

        For Each cb In ActiveSheet.CheckBoxes

        

            If cb.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then

            

                cb.Value = True

            End If

        Next cb

    End If

            

End Sub

And the VBA I used to deselect all check boxes are:

Sub UncheckAll()

Dim cb As CheckBox



    If ActiveSheet.CheckBoxes("Check Box 1").Value Then

    

        For Each cb In ActiveSheet.CheckBoxes

        

            If cb.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then

            

                cb.Value = False

            End If

        Next cb

    End If

            

End Sub

I am now working on creating a summary page and was wondering if I could create a VBA function that would allow me to check and uncheck boxes from ALL worksheets, or at least activate the check/uncheck boxes for each worksheet?

Hope this makes some sense

Thanks,

Chris

[Solus Rankin]

This is kind of an easy way out, but try:

Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Activate
    Call CheckAll
Next ws
End Su

e/ I should probably ask in which module you have all these saved?

[tuna666]

Thank you, I tried running that but it didn't work. I have saved all my VBA code so far in 'Module 2 (Code)'

[tuna666]

Apologies, the module name was 'VBAProject' and not 'Module 2 (Code)'. I've tried running the code below but this error came up: "For Each can only iterate over a collection object or an array".

Sub test()
Dim ws As Worksheet
For Each ws In VBAProject
    ws.Activate
    Call CheckAll
Next ws
End Sub

[Solus Rankin]

Can you attach your workbook as an example? That may help us work it out.

[tuna666]

Here is an attachment of my workbook. What I want to do is to create one macro that check all boxes for all products (potatoes) so that I do not have to use the 'Select All' macro on each product worksheet. Is this possible?

[tuna666]

Is this thread dead now?

[tuna666]

Any help would really be appreciated