Assign a range of a Worksheet type variable to SourceRow of ListBox

Hello there,
I am trying to assign a range of cells that is the same in all the Worksheets. I already created a Worksheet type variable called "sht" that was declared in the "CycleTimeApp" Userform, but
the "Run-time error '91': Object Variable or With block variable not set" was showed. I share the part of the code with the problem:

Private Sub UserForm_Initialize()

ListBox1.RowSource = CycleTimeApp.sht.Range("W2:W42").Address

End Sub

I'll appreciate any help.

Thanks ProtonLeah,
It didn't worked, I tried different ways. Right now, I am trying to do the same thing but simpler. The RowSource in the ComboBox properties is blank

The following is the Macro running in a module:

Please Login or Register  to view this content.

Public Sub EquipmentSel()
If HomeScreen.ComboBox1.Value = "Text1" Then
CycleTimeApp.ComboBox1.RowSource = Sheets(1).Range("B4:B12").Address
End If
End Sub

Please Login or Register  to view this content.

Using .List the Run-time error '70: Permission denied pops up, the Debug sent me to:

Please Login or Register  to view this content.

CycleTimeApp.ComboBox1.List = Sheets(1).Range("B4:B12").Value.

Please Login or Register  to view this content.

Now I decided to do it with .RowSource, the code doesn't return any error this time, however the ComboBox is empty.

Could you, please help me with that matter?

Great!! Spectacular
Thank you very much for your help!!!!