I would use something like this instead:

Dim Target as range

Set Target = Sheets("tele").ActiveCell.Resize(6, 79)
t=Application.WorksheetFunction. CountA (Target)

Best -

RADO

"CG Rosén" wrote in message
...
Good Day,

Is the following approach a dead end? Must the range be in the format
("A1:A2")
to make this code work?

t =

Application.WorksheetFunction.CountA(Sheets("tele" ).Range(Cells(ActiveCell.R
ow, ActiveCell.Column + 79), Cells(ActiveCell.Row + 6, ActiveCell.Column +
79)))

Thanks for any help.

Brgds

CG Rosén