Thanks or the reply,
That is the logical way to do it, but I am getting an unspecified
error,
I have used this
Private Sub CommandButton8_Click()
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
ListBox6.Clear
ListBox7.Clear
End Sub

and this
Sub ClearListBox()
'On Error Resume Next
With UserForm1
..ListBox2.Clear
..ListBox3.Clear
..ListBox4.Clear
..ListBox5.Clear
..ListBox6.Clear
..ListBox7.Clear
End With

both codes result in Unspecified errors

If I use the error code then nothing happens at all....