The overall dimensions of a range are in its Width
and Height
properties.
Dim r As Range
Set r = ActiveSheet.Range("A4:H12")
Debug.Print r.Width
Debug.Print r.Height
The Range object has both width and height properties, which are measured in points.
Source: Stackoverflow.com