That works, Thanks

"Trevor Shuttleworth" wrote:

Jim

try:

ActRow = ActiveCell.Row
rng = WorksheetFunction.Count(Range("K" & ActRow & ":AT" & ActRow))

Regards

Trevor


"Jim at Eagle" wrote in message
...
ActRow = ActiveCell.Row
rng.Value = WorksheetFunction.Count(Range("K" & ActRow : "AT" & ActRow))

I tried many variations and recieve error "Expected: List seperator or )"
Solution sought, dreamed of, and wished for
Thanks
--
Jim at Eagle