Below is my macro - why am I getting an object required error?

Sub HolidaySelection()
Dim i As Long
Dim j As Long
Range("startpoint").Select
For i = 1 To 12
For j = 1 To 28
If
Application.WorksheetFunction.CountIf(Worksheets(" Holidays").Range("F5:F13").Value, DateSerial(Range("VacYear").Value, i, j)) Then
ActiveCell.Offset(i, j) = "H"
End If
Next j
Next i
End Sub