sorry u re right
Private Sub MultiPage1_Change() Dim i As Integer dim contr as control For Each Control In UserForm1.Controls If TypeName(contr) = "ComboBox" Then For i = 1 To 2 If Controls("ComboBox" & i).Value = "" Then MsgBox " you have incomplete answers" End If Next i End If Next End Sub