Any way to clear all the values in a form with a single command?

Hi,

I created a form with a save button which copy the values of the various field in a sheet in Excel. Isuue is that when I hit save the fields in the form remain populated so if I hit it again the same record get saved.

Is there a simple way to clear all the field? mind that there are some textbox, some datechangers and some combobox.

rivate Sub CmdSave_Click()



Sheet1.Activate

Range("B2").End(xlDown).Offset(1, -1).Select


ActiveCell.Offset(0, 1).Value = dtpCaseReceivedDate.Value
ActiveCell.Offset(0, 3).Value = dtpCXReceivedDate.Value
ActiveCell.Offset(0, 5).Value = txtCaseNumber.Value
ActiveCell.Offset(0, 6).Value = cboAgentName.Value
ActiveCell.Offset(0, 7).Value = cboLanguage.Value
ActiveCell.Offset(0, 8).Value = cboCXQ1Score.Value
ActiveCell.Offset(0, 9).Value = cboCXQ2Score.Value
ActiveCell.Offset(0, 10).Value = cboCXQ3Score.Value
ActiveCell.Offset(0, 11).Value = cboCXQ4Score.Value
ActiveCell.Offset(0, 12).Value = cboCXQ5Score.Value
ActiveCell.Offset(0, 13).Value = txtCXQ6.Value
ActiveCell.Offset(0, 14).Value = txtCXQ10.Value
ActiveCell.Offset(0, 15).Value = CboCOntrollable.Value
ActiveCell.Offset(0, 16).Value = cboCxToBeSent.Value
ActiveCell.Offset(0, 17).Value = txtConsumerIssue.Value
ActiveCell.Offset(0, 18).Value = txtResolution.Value
ActiveCell.Offset(0, 19).Value = txtAgentFailed.Value
ActiveCell.Offset(0, 20).Value = cboVoicy.Value
ActiveCell.Offset(0, 21).Value = cboCXAwarness.Value
ActiveCell.Offset(0, 22).Value = cboCallBackNeeded.Value
ActiveCell.Offset(0, 23).Value = txtCommentsActions.Value

End Sub


Thanks
Filippo