Hi,

I'm getting a strange result for SpecialCells(xlCellTypeLastCell):

Debug.Print Worksheets(1).Cells(1, 1).CurrentRegion.Address

has as result: $A$1:$J$10

Debug.Print Worksheets(1).Cells(1, 1).CurrentRegion.Cells.SpecialCells(xlCellTypeLast Cell).Address

has as result: $J$19

Ok, I've defined a Name for Range $A$1:$J$19, but nevertheless the result
should be $J$10, shouldn't it?

Regards,

Rainer