Renster wrote:


*** Rubbish mostly, that is now snipped ***

No matter folks, I cracked it myself. Revised Function:

Sub LatestRun()
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.FormulaR1C1 = "=today()"
For x = 2 To 17
ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = "='C:\[rip-perform.csv]rip-perform'!$C$" & x
ActiveCell.Copy
ActiveCell.PasteSpecial (xlPasteValues)
Next
End Sub