Hi All

I have a problem putting this code in VBA

Function Modfolday(d, Holidays)

If (IsError(Application.Match(d, Holidays, 0)) = False) Or (WorksheetFunction.Weekday(d, 2) = 6) Or (WorksheetFunction.Weekday(d, 2) = 7) Then
dm = WorksheetFunction.WorkDay(d, 1, Holidays)
If Month(dm) > Month(d) Then
Modfolday = WorksheetFunction.WorkDay(d, -1, Holidays)
Else
Modfolday = WorksheetFunction.WorkDay(d, 1, Holidays)
End If
Else
Modfolday = d
End If

End Function



it is not running?


I am quite behind with VBA so please can you assist step by step..