r = activesheet.usedrange,row
c = activesheet.usedrange.column

/Tommy

On 28 Apr., 16:11, isabelle wrote:
hi,

rw = Evaluate("MAX(IF(" & [rng].Address & "<"""",row(" & [rng].Address & ")))")
cmn = Evaluate("MAX(IF(" & [rng].Address & "<"""",column(" & [rng].Address & ")))")

--
isabelle

Le 2012-04-28 08:21, T2B a écrit :







In VBA for a named range, I need to return:

row count, last occupied cell
column count, last occupied cell

Thanks.