Count cells if weekends

Parameters
Entire VBA Code

Macro Title:
Worksheet Variable:
Worksheet Name:
Range Reference:
Number representing first day of the weekend (Saturday):
Output Cell:
First Comment:

'
Second Comment:

'
Sub Count_cells_if_weekends()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Analysis")
'count cells if weekends
ws.Range("E8").Formula = "=SUMPRODUCT(--(WEEKDAY(B8:B14,2)>=C5))"

End Sub

Sub Count_cells_if_weekends()
'declare a variable

Dim ws As Worksheet

Set ws = Worksheets("Analysis")
'count cells if weekends

ws.Range("E8").Formula = "=SUMPRODUCT(--(WEEKDAY(B8:B14,2)>=C5))"

End Sub

Sub Count_cells_if_weekends()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Analysis")
'count cells if weekends
ws.Range("E8").Formula = "=SUMPRODUCT(--(WEEKDAY(B8:B14,2)>=C5))"

End Sub