Couple of things,

1. don't use Row as a variable, it can only cause grief
2. I didn't really understand what all the $ and to in the formula was, so I
may have messes it up, but it does run <g

Dim sFormula As String
Dim nRow As Long

For nRow = 2 To 2 Step 1
Sheets(2).Copy Befo=Sheets(2)

sFormula = "=IF(MIN('Sheet1'!I" & nRow & _
":S" & nRow & ")<MAX('Sheet1'!I" & _
nRow & ":S" & nRow & ")," & _
"MIN('Sheet1'!I" & nRow & _
":S" & nRow & ")," & _
"MAX('Sheet1'!I" & nRow & ":S" & nRow & "))"
Range("C7").Formula = sFormula

Next nRow


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"J" wrote in message
...
I've found a couple of posts similar to what i need, but i'm still having
issues with it. i'm trying to insert a formula into a cell via VB, and i'm
not doing the quotations correct i think. i just went ahead and put the
generic formula in there with no extra messy quotation marks just to
hopefully help this make more sense. any ideas?

For Row = 2 To 2 Step 1
Sheets(12).Select
Sheets(12).Copy Befo=Sheets(12)
Range("C7").Select

'***here's where i get the problem
ActiveCell.FormulaR1C1 = " =IF(MIN('Sheet1'!I"& Row &":S"& Row
&")<MAX('Sheet1'!I"& Row &":S"& Row &"),("$"&MIN('Sheet1'!I"& Row &":S"&
Row
&") & " to $" & MAX('Sheet1'!I"& Row &":S"& Row &")),"$"&MAX('Sheet1'!I"&
Row
&":S"& Row &")) " "


Next Row

thanks in advance

~jay