Coding Efficiency

[Im_Yellow]

Hi People,

I'm looking to Improve the efficiency of my code.

I have two ActiveX Command Buttons, that, when clicked set 50-ish ActiveX Checkboxes to be TRUE or FALSE depending which button is clicked.

At the moment the code ticks each checkbox singularly and moves to the next, which is a bit clunky and makes my screen flash wildly (Dangerous for any Epilepsy sufferers)

My code is as follows;

Private Sub HideAll_Click()
Infrastructure = False
Adobe = False
. etc
. etc
. etc
. etc
WorkstationsAccessories = False
End Sub

and obvisously all TRUE for the 'ShowAll' Button,

Is there a way to make this more efficient? Or do i have to settle with losing my sight at an early age from the blinding flashes?

thanks,

Yellow

 

[mole999]

before

with application.
screenupdating = false
end with

after

with application.
screenupdating = true
end with

is one step, more can be done if necessary

 

[BrianMH]

This code will cycle through all the activex checkboxes on a worksheet and set them all to true.

Sub cyclecheckboxes()

Dim oleObj As OLEObject
Application.ScreenUpdating False
For Each oleObj In Sheets("Sheet1").OLEObjects
    If TypeName(oleObj.Object) = "CheckBox" Then
        oleObj.Object = True
    End If
    
Next
Application.ScreenUpdating True
End Sub

 

[Norie]

Using a listbox which is set up to display a checkbox for each item listed might work a bit better.