Error With Assigning A Named Range To A Userform Combobox List

[Ark68]

Sub ref_activity()
'Stop
    Dim chng As Double, cnt As Double
    Dim df_o1 As String
    Dim nm_fldconfig As Range, nm_gs As Range
    Dim r As Integer, prow As Integer
    'mbevents = False
'Stop

    'define default names for activity fields
   
    ActiveWorkbook.Names.Add Name:="nm_fldconfig", RefersTo:=ws_lists.Range("U2:U19")
    ActiveWorkbook.Names.Add Name:="nm_gs", RefersTo:=ws_lists.Range("V2:V15")
   
    'populate setup fields
    With permit
        If rcode Like "D*" Then
            ....
        ElseIf rcode Like "F*" Then
            With .cbx_f2_fc
                .List = nm_fldconfig.Value
                .Value = df_fldconfig
                chk_main
            End With
            With .cbx_f2_gl
                .List = Range("nm_gs")
                Value = df_gs
                chk_main
            End With
            .tb_f2_other.Text = df_o1
        End If
    End With
   
End Sub

The line in purple declares variable nm_fldconfig as a range
The line in green creates the named range.
Permit is the userform, cbx_f2_fc is the combox on that form.
The line in red is leaving me with an error ... "Object variable or With block variable not set."

Any thoughts on how I can correct this?

 

[Fluff]

You have not assigned a range to the nm_fldconfig variable, hence the error.
If you want to use a named range use

[B].[/B]List = Range("nm_fldconfig").Value

or if you want to use a range variable use

Set nm_fldconfig = ws_lists.Range("U2:U19")

 

[Ark68]

Oh, I see!! Thanks Fluff.

 

[Fluff]

You're welcome & thanks for the feedback.

 

[My Aswer Is This]

I think it should be like this:
ListBox1.List = Range("nm_fldconfig").Value