ComboBox options based on another ComboBox - excel

Question

below is the code I'm working on to make a UserForm. I'm new to using UserForm and am tryin to populate ComboBox 2 with ComboBox 1 selection. ComboBox 1 holds the name of the worksheets and I'd like ComboBox 2 to update with the column heading names of the selected worksheet. Any help would be greatly appreciated.
Private m_Cancelled As Boolean
Public Property Get Cancelled() As Variant
Cancelled = m_Cancelled
End Property
Private Sub ComboBox1_Change()
'Initialize ComboBox2
Application.EnableEvents = False
ComboBox2.Clear
Application.EnableEvents = True
Debug.Print "Here"; ComboBox1.Value
' Select Case ComboBox1.Value
' Case ComboBox1.Value
With Worksheets(ComboBox1.Value)
Debug.Print "Active Worksheet";
Dim InitialArray() As Variant
Dim i As Integer
Dim ColCount As Integer
' Debug.Print ColCount; RowStart
Do While IsEmpty(Cells(1, ColCount + 1).Value) = False
ColCount = ColCount + 1
' Debug.Print Cells(RowStart, ColCount)
Loop
Debug.Print ColCount; "Cols"
End With
' End Select
' Select Case ComboBox1.Value
For i = 1 To ColCount
Cells(1, i).Add
Next i
' End Select
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub CommandButton1_Click()
Hide
End Sub
Private Sub CommandButton2_Click()
' Hide the Userform and set cancelled to true
Hide
m_Cancelled = True
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Clear
'Initialize ComboBox1
Dim wb As Workbook: Set wb = ThisWorkbook
Dim wCount As Long: wCount = wb.Worksheets.Count
Dim wsNames() As String: ReDim wsNames(1 To wCount)
Dim ws As Worksheet, w As Long
For Each ws In wb.Worksheets
If ws.Visible = xlSheetVisible Then
w = w + 1
wsNames(w) = ws.Name
End If
Next ws
If w < wCount Then ReDim Preserve wsNames(1 To w)
ComboBox1.List = wsNames
' ReDim InitialArray(ActiveWorkbook.Worksheets.Count) As Variant
' Dim i As Integer
'
' ComboBox1.Clear
' For i = 1 To ActiveWorkbook.Worksheets.Count
' InitialArray(i) = ActiveWorkbook.Sheets(i).Name
' Next i
' ComboBox1.List = InitialArray
End Sub
Private Sub UserForm_Activate()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer _
, CloseMode As Integer)
' Prevent the form being unloaded
If CloseMode = vbFormControlMenu Then Cancel = True
' Hide the Userform and set cancelled to true
Hide
m_Cancelled = True
End Sub
Function GetComboBox1() As String
GetComboBox1 = ComboBox1.Value
End Function