Accessing Sheet Number through Ilogic

[AMN3161]

I didn't think this property would be so difficult to access but how do I use this and just pull the active sheets number

I am making a numbering system where i want to use the Sheet Number as a part of the numbering but i cant find how to access it

Any help would be appreciated 

[Cadkunde.nl · Accepted solution]

Dim oDoc As DrawingDocument = ThisDoc.Document

For i = 1 To oDoc.Sheets.Count
	If oDoc.Sheets.Item(i) Is oDoc.ActiveSheet Then
		MsgBox(i)
	End If
Next

[AMN3161]

Thought it would be easier to access, thank you!