Stift,
Another way to do it:

Option Explicit
Private Sub UserForm_Initialize()

Dim CL As Range
For Each CL In Range("C9:C63,C68:C110,B117:B166,B173:B187")
ComboBox1.AddItem CL.Value
Next

End Sub


--
Soo Cheon Jheong
Seoul, South Korea
_ _
^¢¯^
--