amend formula

[Pete]

=(('Pricing Supply'!F34+'Shipping UFC'!F36)/(1-'Shipping BOG'!F36))* 'Modelling (Vol)'!F34


.Cells(startrow + 1, curCol).Formula = Replace("=(('Pricing Supply'!^1" & startrow + 1 & " + ('Shipping UFC'!^1" & startrow + 1 & ")/(1-'Shipping BOG'!^1" & startrow + 1 & "))* 'Modelling (Vol)'!^1" & startrow + 1 & ")", "^1", Mid(Cells(1, curCol).Address, 2, InStr(2, Cells(1, curCol).Address, "$") - 2))

[Pete]

Apologies.......for to add the text......need to modified the vba code to equal to the formula

[mdmackillop]

Is this meant to be a question? How does it relate to this (http://www.vbaexpress.com/forum/showthread.php?t=21267)?