01-19-2023
08:08 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-19-2023
08:08 AM
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