Repeating macro for various worksheets to complete lines in consolidation sheet

Hi,

I am trying to run the following instruction to complete a table, but want this to fill each new row for each worksheet in the book via a macro:

ActiveCell.FormulaR1C1 = _
"=IF('MX9522'!R[73]C[3]>('MX9522'!RC[3]*1.1),'MX9522'!RC,""Below threshold"")"
Range("A2").Select
Columns("A:A").EntireColumn.AutoFit
Range("B2").Select
ActiveCell.FormulaR1C1 = "='MX9522'!RC[2]"
Range("C2").Select
ActiveCell.FormulaR1C1 = "='MX9522'!R[73]C[1]"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/RC[-2])*100"

Can anyone help how to write the macro for this to occur?

Thanks in advance,

Ross

If the code works for a single sheet, you can make to work across sheets, but the code will not know which one is the active cell in this line

Please Login or Register  to view this content.

The rest of the code have selected range, but not this line.
What is the name of cell or range for this active cell?

Assuming that the first line active cell is A2, try this code

Please Login or Register  to view this content.