Dim sDate As String Dim sWork As String Dim sWork2 As String Dim iDays as Integer sDate = "2016/07" sWork = sDate & "/01" sWork2 = DateSerial(Year(sWork), Month(sWork) + 1, Day(sWork)) iDays = Day(DateSerial(Year(sWork2), Month(sWork2), Day(sWork2) - 1)) MsgBox iDays