Insert Formula Running Too Long??

[pztexas12]

Hi,

I am very new to VBA. I've written the following code to insert a formula into a specific column as follows:

Sub L_InsertFormula()
Range("C2:C10000").Formula = _
"=IF(D2=0,"""",ROUND(D2, 4)*100) "
End Sub

The problem is the formula runs too long and causes issues with mail merge. I really only need the formula to run as long as there are values in the column it references which is column D.

Thank You for any help!

 

[Firefly2012]

Hi

Assuming your data always starts in D2 then the usual approach is:

Sub L_InsertFormula()
Range("C2:C" & Cells(Rows.Count,"D").End(xlUp).Row).Formula = _
"=IF(D2=0,"""",ROUND(D2, 4)*100) "
End Sub