VBA Macro - Get Number Of Drawing Sheets

[isocam]

Can anybody help?

Is it possible, using an Inventor VBA macro, to get the number of sheets a drawing has and show the number in a message box?

Basically, if a drawing has more than one sheet, I want to know (for testing purposes) the total number of sheets a drawing has.

Many thanks in advance!

Darren

[bradeneuropeArthur]

Dim inv As Inventor.Application
Set inv = ThisApplication
Dim d As Inventor.DrawingDocument
Set d = inv.ActiveDocument
'Dim s As Inventor.Sheet

MsgBox d.Sheets.Count
	

This will do for VBA