Populate ComboBox with Named Range

[inkserious]

I'm trying to populate a ComboBox with a named range. For example, I have a named range called currentMonth. This range contains the name of a month. I have named ranges for all of the months. So if currentMonth contains October, then the ComboBox would be populated with the named range October.

I can hardcode the month, but I can't seem to figure out how to take the string value in the currentMonth named range and convert it to the respective range. Thanks in advance for any help anyone can provide.

Private Sub setMonth()
 
Dim ws As Worksheet
Dim cDate As Range
 
    Set ws = Worksheets("ranges")
        For Each cDate In ws.Range("October")
             With Me.cboDate
            .AddItem cDate.Value
        End With
    Next cDate
 
End Sub

 

[inkserious]

My apologies the variable is curDate, not cDate.

Thanks again.

 

[inkserious]

Figured it out!

Private Sub setMonth()
 
Dim ws As Worksheet
Dim cMonth As String
Dim myMonth As Range
Dim curDate As Range
 
    Set ws = Worksheets("ranges")
    cMonth = ws.Range("currentMonth")
    Set myMonth = Range(cMonth)

        For Each curDate In myMonth
            With Me.cboDate
                .AddItem curDate.Value
        End With
    Next curDate
 
End Sub

 

[SkipVought]

hi,

   cboDate.listfillrange = "currentMonth"

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[inkserious]

Thanks Skip.