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

Thats correct @AdamAG99T  & @SandmanINV .  Here's an example I use:

 

Sub Main IDW_DuplicateSheet()

Dim oDoc As DrawingDocument
 oDoc = ThisApplication.ActiveDocument

Dim tmpDoc As DrawingDocument
 tmpDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, , True)


Dim newSheet As Sheet
 newSheet = oDoc.ActiveSheet.CopyTo(tmpDoc)

Call newSheet.CopyTo(oDoc)

tmpDoc.Close (True)

End Sub