Try the code below.
Function DaysInWeeks(dteMonthYear As Date) As String
Dim FDate As Date, LDate As Date, strPrint As String, intI As Integer
' Find the 1st date of this month
FDate = DateSerial(Year(dteMonthYear), Month(dteMonthYear), 1)
' Find the last date of this month
LDate = DateAdd("d"...