The following code will clear out the text boxes on a form. You
can adapt the code for other types of controls.

Private Sub CommandButton1_Click()
Dim C As MSForms.Control
For Each C In Me.Controls
If TypeOf C Is MSForms.TextBox Then
C.Text = ""
End If
Next C
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Saj" wrote in message
...
Clear the UserForm or reset to default