Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Cadkunde.nl
in reply to: AMN3161

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