I put named a single area Test99 and another multi-area range test98 and this
worked ok (although, with a multi-area range, the last cell of the last area
might not be what you expected).
Option Explicit
Sub testme()
With Range("test99")
MsgBox .Cells(.Cells.Count).Address
End With
With Range("test98")
With .Areas(.Areas.Count)
MsgBox .Cells(.Cells.Count).Address
End With
End With
End Sub