VBA to select all comboboxes on a sheet

[lynnsong986]

Hello, I have more than 50 combo boxes (form control) in one column on a sheet, I need to grab them all and do a resize. What is the VB for selecting all combo boxes on a sheet? only found some codes doing deleting and not selecting them all...

thanks so much!

[Akuini]

Are they activex combobox?
Maybe this:

Please Login or Register  to view this content.

[lynnsong986]

Thank you so much Akuini, I'll for sure keep this but those are actually form control combo boxes, how should I tweak this?

[lynnsong986]

Sub ResizeFormControlComboBox()
Dim s As Shape

    For Each s In ActiveSheet.Shapes
         If s.Type = msoFormControl Then
 If s.FormControlType = 2 Then
            s.Width = 120
        End If
        End If
    Next

End Sub 

[lynnsong986]

I found some codes and tweaked it a bit, this works... thanks so much!

[Akuini]

Glad you figured it out.

[lynnsong986]

Thank you for your help!!