Private Sub UserForm_Initialize()
Dim i As Long
Dim lYearsAdd As Long
Dim lYearStart As Long
lYearStart = Year(Date) - 10
lYearsAdd = Year(Date) + 10
With Me
.Width = frmWidth
.Height = frmHeight2
For i = 1 To 12
.CB_Mth.AddItem Format(DateSerial(Year(Date), i, 1), "mmmm")
Next
For i = lYearStart To lYearsAdd
.CB_Yr.AddItem Format(DateSerial(i, 1, 1), "yyyy")
Next
.Tag = "Calendar"
.CB_Mth.ListIndex = Month(Date) - 1
.CB_Yr.ListIndex = Year(Date) - lYearStart
.Tag = ""
End With
Call Build_Calendar
End Sub
Bookmarks