'Para TextBoxComboBox en vario Formularios, colocar en cada formulario TextBoxComboBox Me
'Macro Antonio http://www.ayudaexcel.com/foro/macros-programacion-vba-10/evento-limpiesa-26741/#post130671
'Sub TextBoxComboBox(Formulario As UserForm) 'Para varios Formularios
Sub TextBoxComboBox() 'para 1 solo formulario
Dim ctrl As Object
'For Each ctrl In Formulario.Controls ' Para varios Formularios
For Each ctrl In UserForm1.Controls 'para 1 solo formulario
If TypeOf ctrl Is MSForms.TextBox Then ctrl = Empty
If TypeOf ctrl Is MSForms.ComboBox Then ctrl = Empty
Next ctrl
MsgBox ("Controles limpios para nuevo uso"), vbInformation, "Limpieza"
End Sub