Sub AddFormula() Dim x As Integer x = ActiveCell.Row Range("B" & x).Value = x - 4 ActiveSheet.Hyperlinks.Add Range("B" & x), "", "Sheet" & x - 4 & "!A1" Range("C" & x).Formula = "=Sheet" & x - 4 & "!$A$1" Range("I" & x).Formula = "=OFFSET(Sheet" & x - 4 & "!$A$1,17,1,1)" End Sub
Range("A1").Value = DateBest regards,