Syntax to set range

Private Sub UserForm_Initialize()
 Dim space as range
 Dim cell as range
on error goto correcterror
 Set space = Sheets("font").Range("E1", Range("E1").End(xlDown).address)
 For Each cell In space
   ComboBox1.AddItem cell.formulaR1C1
 Next Cell
Exit Sub
correcterror:
End Sub