Left out the declaration. Declare ctrl as Control

Private Sub CommandButton1_Click()
Dim ctrl as Control
For Each ctrl In Me.MultiPage1.Pages(3).Controls
If TypeOf ctrl Is MSForms.ComboBox Then
msgbox ctrl.Name & ": " & ctrl.Value
End If
Next
End Sub

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote in message
...
Private Sub CommandButton1_Click()
For Each ctrl In Me.MultiPage1.Pages(3).Controls
If TypeOf ctrl Is MSForms.ComboBox Then
msgbox ctrl.Name & ": " & ctrl.Value
End If
Next
End Sub

worked fine for me

--
Regards,
Tom Ogilvy



"42N83W" wrote in message
...
Still getting a type mismatch in the FOR statement.

This worked, but only because my labels weren't blank:

For i = 0 To fra02_01.Controls.Count - 1
If fra02_01.Controls.Item(i) = "" Then
' do stuff
Exit Sub
End If
Next i


-gk-


"Jim Cone" wrote in message
...
Sub Test()
Dim objCB As MSForms.ComboBox

For Each objCB In UserForm1.Frame1.Controls
objCB.AddItem "100"
If objCB.Column(0, 0) = "" Then
MsgBox True
Else
MsgBox False
End If
Next
End Sub


"42N83W" wrote in message
...
Option Explicit

Dim cbx as MSForms.ComboBox

' flag1 is a global variable

Public Sub ValidateFiles()
' called from cmd02_Next_Click() in frmMain code module

'error Run Time 13 Type Mismatch occurs in the For statement
For Each cbx In frmMain.fra02_01.Controls
If cbx.Value = "" Then
'cbx.Text doesn't work
flag1 = True
End If
Next cbx

End Sub



"Jim Cone" wrote in message
...
42...

Show us the code and where the error occurs.

Jim cone
San Francisco, USA


"42N83W" wrote in message
...

"Jim Cone" wrote in message
...
42...
Something similar to the following ought to work...
Dim objCB As MSForms.ComboBox
For Each objCB In UserForm1.Frame1.Controls
objCB.Enabled = True
Next
Jim Cone
San Francisco, USA

Now I'm getting a Type-Mismatch error.
Hmmmmm
-gk-