Range("D5").Activate N = 5 - ActiveCell.Offset(-3, 23).Value ActiveCell.FormulaR1C1 = "='PARAMETROS'!R[" & N & "]C[3]"