Public Mths(), SelYear, SelMonth, SelDay, MonthFlag, YearFlag, DateCtl, CDFDate
Sub TestCal()
GetCalDate "Mike"
End Sub

Sub GetCalDate(CallerName)
DateCtl = CallerName
Mths = Array(" ", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
ND = Date
SelMonth = Month(ND)
SelYear = Year(ND)
XMonth = 10
XYear = 2016
CalPopulate SelMonth, SelYear
frmCal.Show
End Sub
Sub InsertSelDate()
frmCDFReq.Controls(DateCtl).Caption = CDFDate
frmCal.Hide
End Sub

Sub CalPopulate(XMonth, XYear)
Dim CalX(5, 6)

spx = " "
For rdx = 0 To 5
For cdx = 0 To 6
CalX(rdx, cdx) = spx
Next cdx
Next rdx
XLastDay = Day(DateSerial(XYear, XMonth 1, 1) - 1)
FirstwDay = WorksheetFunction.Weekday(DateSerial(XYear, XMonth, 1))
rdx = 0
cdx = FirstwDay - 1

For ddx = 1 To XLastDay
CalX(rdx, cdx) = ddx
cdx = cdx 1
If cdx > 6 Then
cdx = 0
rdx = rdx 1
End If
Next ddx

With frmCal
.ListBox1.AddItem "blah"
For ctlx = 1 To 7
.Controls("ListBox"