And if you don't want a unique list of items from the column but you want no blank spaces just change it like this:
[vba]Option Explicit
Private Sub UserForm_Initialize()
Dim Rng1 As Range
Dim c As Range
Set Rng1 = Sheets("Sheet1").Range("A3:A1103")
For Each c In Rng1
If Not c.Value = vbNullString Then
Me.ComboBox1.AddItem (c.Text)
End If
Next
End Sub
[/vba]