dependent listbox with named range

Hi

I am trying to make a dependent listbox using a named range.

so far my formula is

Private Sub UserForm_Initialize()

        Set ws = Worksheets("MasterLU")
        str = ws.Range("ACS").Value
        Me.ListCmp.List = ws.Range("Company").Value
        'Set myarray = ws.Range("ACS").Value
        Me.Caption = "TimeSheet Form"
        Set ws = Worksheets("Sheet1")
        Me.MonthView1.Visible = False
End Sub
Private Sub ListCmp_Change()

Dim iCnt As Integer
    
   ' ListCode.Clear
    
    With ListCmp
        Select Case ListCode
            Case "ACS"
                .AddItem Item:=str
                
        End Select
    End With
    
End Sub