VBA - loop through all combo boxes and change the value

[SammiBoi]

I am trying to write a VBA code that would loop through all comboboxes on my worksheet and change their value to "N/A". Perhaps something is wrong with my code here? Thoughts?


<code>
Dim X As Long
For X = 1 To 999
ActiveSheet.("ComboBox" & X).Value = "N/A"
Next X
</code>

 

[dmt32]

Hi,
Assuming that the comboboxes on your worksheet come from the controls toolbox give this code a try & see if goes in right direction:

Dim Ctrl As Object


    For Each Ctrl In ActiveSheet.OLEObjects
        If TypeName(Ctrl.Object) = "ComboBox" Then
            Ctrl.Object.Text = "N/A"
        End If
    Next

Dave

 

[SammiBoi]

hi Dave, would it be possible to only change the ones that are being highlighted.

 

[dmt32]

hi Dave, would it be possible to only change the ones that are being highlighted.

What do you mean by "highlighted"?

Dave