Works as formula but doesn't work as VBA

[Pete2211]

Hi.
I have the below code which isn't working in VBA.
The formula works perfectly as a formula placed manually in the cell but doesn't work as part of the macro.
It seems to be the "" at the end of the formula which is confusing it. Please can somebody help?

    Sub FillEXTEND()
Sheets("OVERDUE").Select
    range("M1").Select
Dim LastRowColumnJ As Long
LastRowColumnJ = Cells(Rows.Count, 1).End(xlUp).Row
range("M2:M" & LastRowColumnJ).Formula = "=IF(and(J2<=TODAY(),L2<=Today(),ROUND((TODAY()-L2)/7,1),[U][B][SIZE=4][I]""[/I][/SIZE][/B][/U])"
End Sub

As you can see from the coding, I'm an absolute beginner at this so please bare with me.

 

[Pete2211]

Good morning Fluff

Not sure what's happened here but it has worked this morning.
I didn't save the workbook between trials of your different suggestions, could that have caused the problem?
Anyway, it's working fine now even if I have no idea why.

 

[Fluff]

Glad it's working & thanks for the feedback.