Problem with For Each... Next Statement.

[SQLBI]

Hi,

Having trouble with the following code. I know it'll be something really simple but can i find it...?

Public Sub SetSpinButtons()

    For Each SpinButton In Sheet1
    
        If SpinButton.Enabled = False Then
        
            SpinButton.Enabled = True
    
        End If
        
    Next

End Sub

Thanks in advance.

Leigh Moore
LJM Analysis Ltd

http://www.ljm-analysis.co.uk

 

[combo]

If you use toolbox controls, this will toggle 'enabled' property of all spinbuttons on sheet1:
[tt]Dim olo As OLEObject
For Each olo In Sheet1.OLEObjects
If olo.progID = "Forms.SpinButton.1" Then
olbject.Enabled = Not olbject.Enabled
End If
Next[/tt]

combo