Clear ALL combo Box

Hi,

How do I clear all combobox at one time?

Now i am clearing it one by one and i forsee that if i have alot of combobox, this list will go a long way..

Private Sub Worksheet_Activate()
'* OFF screenupdating to speed up the process
Application.ScreenUpdating = False

HFD = Sheets("Project List").Range("A65536").End(xlUp).Row

HFR = Sheets("Project List").Range("IV4").End(xlToLeft).Column

ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
ComboBox9.Clear
ComboBox10.Clear

For N = 3 To HFD
    With ComboBox1
        .AddItem Sheets("Project List").Cells(N, 1).Value
    End With
Next N


Application.ScreenUpdating = True

End Sub