Here's some code

Private Sub ComboBox1_Change()
Dim i As Long
Dim dteCombo As Date

Range("A1:A31").ClearContents
For i = 1 To 31
dteCombo = DateSerial(Year(Date), ComboBox1.ListIndex + 1, i)
If Month(dteCombo) = ComboBox1.ListIndex + 1 Then
Cells(i, "A").Value = dteCombo
Else
Exit For
End If
Next i
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"adn4n " wrote in message
...
Hi, im looking to enter the Months of the year into a combo box, which
is what i have done .....but can any one please help me on how to get
the dates according to that month to show up underneath, so that i can
have a timesheet according to the relevant month.. e.g Jan, 31 days, in
list of dates... etc etc Thankyou.


---
Message posted from http://www.ExcelForum.com/