Thanks for the reply KL, but that is not doing it.
"KL" wrote in message
...
Hi Mike,

Try this:

Sub test()
Range("I18").Formula = _
Evaluate("=CountA('Sheet1:Sheet" & _
Sheets.Count - 2 & "'!A13:A100)")
End Sub

Regards,
KL


"Mike Fogleman" wrote in message
...
I am trying to put a calculated value in a cell without putting the
formula in the cell. VB will calculate and put result.
The syntax is killing me. What is it for this:

Range("I18").Value =
Application.WorksheetFunction.CountA('Sheet1:Sheet (Sheets.Count-2)'!A13:A100)

Mike F