thanks Xld.
I may not have explained myself clearly. What I would like to do is have say E3 display the 1st E4 Display the 2nd etc.
I have put a list into each of the cells and can change the Calendar to the Month and Year there may be an easier way to do it. However this works. Now I would like to have the other cells display the days and update if Month and year are changed.Code:If Range("f2").Value = "Jan" Then UserForm1.Calendar1.Month = (1)
If Range("f2").Value = "Feb" Then UserForm1.Calendar1.Month = (2)
If Range("f2").Value = "Mar" Then UserForm1.Calendar1.Month = (3)
If Range("f2").Value = "Apr" Then UserForm1.Calendar1.Month = (4)
If Range("f2").Value = "May" Then UserForm1.Calendar1.Month = (5)
If Range("f2").Value = "Jun" Then UserForm1.Calendar1.Month = (6)
If Range("f2").Value = "Jul" Then UserForm1.Calendar1.Month = (7)
If Range("f2").Value = "Aug" Then UserForm1.Calendar1.Month = (8)
If Range("f2").Value = "Sep" Then UserForm1.Calendar1.Month = (9)
If Range("f2").Value = "Oct" Then UserForm1.Calendar1.Month = (10)
If Range("f2").Value = "Nov" Then UserForm1.Calendar1.Month = (11)
If Range("f2").Value = "Dec" Then UserForm1.Calendar1.Month = (12)
UserForm1.Calendar1.Year = Range("h2").Value
'For x = 1 To 42
'Range("c4:i9").Value = UserForm1.Calendar1.Day(x)
'Next
End Sub
It is very good the amount of help I am getting from all of you. However I was hoping other new people would get involved. If anyone who is new is watching what is going on here please don't hesitate to jump in.