Use a listbox instead, designed in design mode.

Private sub Userform_initialize()
   listbox1.list=Sheet8.Range("A36:A300").Specialcells(2).value
End Sub