Pete
07-31-2008, 04:41 PM
=(('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))
.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))