[VBScript]
Function NamedRange(Name As String,_
	[WorksheetIndex As Long = -1]) As SARange

Takes a range's Name and returns the Range object.

The following returns the number of Areas within the "Headings" range.

[VBScript]
Set Range1 = ws.Cells.Range(1,1,1,4)
Range1.Name = "Headings"
NumHeadingsAreas = xlw.NamedRange("Headings",1).AreaCount