Populating comboboxes in a userform

Hi! I have a user form and on it I have a Combobox. When I load the userform I would like the Combobox to be populated automatically from a range in the Excel spreadsheet. I have written the following code but does not appear to work..

Private Sub UserForm_Load()

Dim Row1 As Integer
Dim Row2 As Integer


Row1 = Sheets("Database").Range("F5")
'(contents of Sheets("Database").Range("F5") is 1)
Row2 = Sheets("Database").Range("F7")
'(contents of Sheets("Database").Range("F6") is 10)

ThisWorkbook.Names.Add Name:="ComboRange", RefersTo:=ThisWorkbook.ActiveSheet.Range("A" & Row1, "A" & Row2), Visible:=True


   ComboBox1.Items.AddRange(ComboRange).Value
   
End Sub

Any help extremely appreciated!

Best

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here


For VBA the event fired when loading a userform is Initialize

Private Sub UserForm_Initialize()

    Dim Row1 As Integer
    Dim Row2 As Integer
    
    Row1 = Sheets("Database").Range("F5")
    '(contents of Sheets("Database").Range("F5") is 1)
    Row2 = Sheets("Database").Range("F6")
    '(contents of Sheets("Database").Range("F6") is 10)
    
    With ThisWorkbook.ActiveSheet
        ComboBox1.RowSource = "'" & .Name & "'!" & "A" & Row1 & ":A" & Row2
    End With
    
End Sub

The combobox has a rowsource property to take a range reference.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

You also forgot the Code Tags,