Private Sub CommandButton5_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
Select Case True
Case TypeOf ctrl Is MSForms.TextBox
ctrl = ""
Case TypeOf ctrl Is MSForms.ComboBox, TypeOf ctrl Is MSForms.ListBox
ctrl.ListIndex = -1
End Select
Next ctrl
End Sub