Form Question

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have the following code which initializes a combo box

For Each cMonth In ws.Range("Month")
With Me.cboPlanMonth
.AddItem cMonth.Value
.List(.ListCount - 1, 1) = cMonth.Offset(0, 1).Value
End With
With Me.cboActMonth
.AddItem cMonth.Value
.List(.ListCount - 1, 1) = cMonth.Offset(0, 1).Value
End With

Next cMonth

What I want to do is if the rangename ActMonth is not empty, populate the
value for cboActMonth with that value. I'd also like to allow the pulldown
if it's possible.

How would I do that?

Thanks
 
Assuming you are uisng Ron's first suggestion:

if not isempty(Range("ActMonth")) then
With Me.cboActMonth
.Value = month(range("ActMonth"))
end with
End if
 
Back
Top