Date in a cell Excluding Holidays?

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..

please help... I have to send a report out tom

this was my first code

=IF('Trade Capture'!I16>27,"move to next unless EOM","move to next")


but I had to expand it so that if there is a hols than it would move.....