Macro Stops at .Formula Code

Hi,

This code

    With Range("AU2:AU" & Lr)
        .Formula = "=IF(AP2<>0,AP2,"")"
        .Font.Name = "Tahoma"
        .Font.Size = 10
        .NumberFormat = "0"
    End With

Falls over at the

.Formula = "=IF(AP2<>0,AP2,"")"

part

If I change it to

.Formula = "=IF(AP2<>0,AP2,0)"

it works, so it obviously has something to do with the double "". Trouble is I don't want a zero I want a blank cell.

Thanks for any help.

Thanks OllyXLS - Perfect!