glad it worked - for completeness

xlWs.Range("c1").End(xlDown).Offset(1, 0).Select
xlApp.FormulaR1C1 = "=XIRR(R2C:R[-1]C,R2C1:R[-1]C1,0.1)"


should have been

xlWs.Range("c1").End(xlDown).Offset(1, 0).Select
xlApp.Selection.FormulaR1C1 = "=XIRR(R2C:R[-1]C,R2C1:R[-1]C1,0.1)"

--
Regards,
Tom Ogilvy

Forrest wrote in message
...
Works lilke a champ. Thanks for the education.