Count number of mondays

[snb]

starting date: "01/15/2016" (mm/dd/yyyy)
number of days: 65

Sub M_snb()
    c00 = "01/15/2016"
    y = 65
    MsgBox Evaluate("sum(N(weekday(" & c00 & "+row(1:" & y & ")-1,2)=1))")
End Sub

starting date: "01/15/2016" (mm/dd/yyyy)
end date: "07/15/2016"

Sub M_snb()
  c00 = "01/15/2016"
  c01 = "07/15/2016"
  MsgBox Evaluate("sum(N(weekday(" & c00 & "+row(1:" & DateDiff("d", c00, c01) & ")-1,2)=1))")
End sub

or

Sub M_snb()
  c00 = CDbl(CDate("15-01-2016")) & ":" & CDbl(CDate("15-07-2016"))
  MsgBox Evaluate("sum(N(weekday(row(" & c00 & ")-1,2)=1))")
end sub

or

Sub M_snb()
    Names.Add "snb", Range(CDbl(CDate("15-01-2016")) & ":" & CDbl(CDate("15-07-2016")))
    MsgBox [sum(N(weekday(row(snb)-1,2)=1))]
End Sub