Other method for .formula

[krazyhype19]

Hi,

I have a code where I paste a formula to a large number of rows that keeps my macro run very slow... How will I revise this code for my macro to run faster. The other seems to works fast but this one really my problem...

.Range(.Cells(3, 27), .Cells(Lrow, 27)).Formula = "=IF(AND($R4=$R3,$Y3=""Entry"",$X3=""Y"",$S3<>""Sat"",$S3<>""Sun"",COUNTIFS($X$3:$X3,$X3,$R$3:$R3,$R3,$A$3:$A3,$A3,$Y$3:$Y3,""Entry"")=1),""Y"",""X"")"

[judgeh59]

you could turn the auto calculation off when set the cells and then turn it back on

    Application.Calculation = xlManual
    Application.Calculation = xlAutomatic