Use ActiveCell.Formula rather than ActiveCell.FormulaR1C1. E.g,.


ActiveCell.Formula = "=COUNTIF(A:A,""*"")"

Cordially,
Chip Pearson
Microsoft MVP
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Thu, 27 Nov 2008 08:06:12 -0800 (PST), wrote:

Range("I1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(A:A,""*"")"
Range("I2").Select