Maybe this

Range("Q6").FormulaR1C1 = "=RC[-14]+'Sheets(" & _
Worksheets(ActiveSheet.Index - 1).Name & ")'!RC"
Range("Q7").Select


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"newguy" wrote in message
oups.com...
I have tried making sense of the code from the Macro when I recorded it
but it isnt working for me.

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'07-Dec-06'!RC"
Range("Q7").Select

This works but I need to apply it to multiple worksheets so I need it
to be more dynamic in the sense that it doesnt reference '07-Dec-06'
but something along the lines of

Range("Q6").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+'Sheets(ActiveSheet.Index -
1)'!RC"
Range("Q7").Select

Or some way of selecting the previous worksheet then the one I am on
and doing a calculation in a cell.