Public Sub GetSheetSize()

Dim invAllSheets As Sheets
Dim invSHEET As Sheet
Dim invDrawDoc As DrawingDocument

'drawing document must be active...
'remember that all linear dims are returned in centimeters
'regradless of document settings...
    Set invDrawDoc = ThisApplication.ActiveDocument
    Set invAllSheets = invDrawDoc.Sheets
    For Each invSHEET In invAllSheets
        Debug.Print "Dimensions for: " & invSHEET.name
        Debug.Print "Width: " & invSHEET.Width & _
                " cm (" & CStr(invSHEET.Width / 2.54) & " Inches)"
        Debug.Print "Height: " & invSHEET.Height & _
                " cm (" & CStr(invSHEET.Height / 2.54) & " Inches)"
    Next invSHEET
   
End Sub