Give this a try.


Code:
--------------------
Sub AddFormula()
Dim NumRows As Integer, x As Integer
NumRows = ActiveSheet.UsedRange.Rows.Count
For x = 1 To NumRows
Range("X" & x) = "=477*Q" & x
Next x
End Sub
--------------------


HTH


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=379028