Combobox value defines Combobox Rowsource

[onmyway]

Hi all, I need some help getting this code to work. I would like the value of Combobox1 to define the Combobox2 Rowsource.

The basic concept works, except for adding the line of code:

Me.ComboBox1.List = Sheet1.Range("ABC").Value

to my UserForm_Initialize that already has existing functions in it.....

Private Sub UserForm_Initialize()

   'My line I need to add

'*************************************************
    Me.ComboBox1.List = Sheet1.Range("ABC").Value
'*************************************************
    
    
    Dim LR As Long
    Dim myNum
    Dim WS As Worksheet
     
    For Each WS In ActiveWorkbook.Worksheets
        ListBox1.AddItem WS.Name
        
    Next
    
    Set WS = Nothing
    
    With Sheets("DataSheet - Fitness")
        LR = .Cells.Find("*", .Cells(Rows.Count, .Columns.Count), SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious).Row
        If LR = 1 Then
            myNum = 1
            Me.GUID.Text = "ABC001" & Replace(Replace(Replace(Date & Time, ":", ""), "/", ""), " ", "")
        Else
            Me.GUID.Text = "ABC001" & Replace(Replace(Replace(Date & Time, ":", ""), "/", ""), " ", "")
           
        End If

    End With
       
End Sub

Appreciate your help!