Hi,

There's nothing wrong with the code so you should look at how your setting a
value for LastRow. It should be something like

LastRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row

or you may choose to use column D


--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"ram" wrote:

HI All,

Do you know where the error is below

Thanks for any help

With Worksheets("tblFaxMailBox").Range("F2:F" & LASTROW)
.Formula=
"= NETWORKDAYS(RC[-2],RC[-4],Holiday!R2C[-4]:R11C[-4])"
.Value = .Value
End With