Hello,
The following code is intended to activate each sheet then rename. Imagine a scenario where the sheets are named "Sheet1, "Sheet3", "Sheet2". The following macro should rename them to "Sheet1", "Sheet2", and "Sheet3". Am I using a method wrong? Thanks in advance for any help.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swSheet As SldWorks.Sheet
Dim vSheets As Variant
Dim i As Integer
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
vSheets = swDraw.GetSheetNames
For i = 1 To swDraw.GetSheetCount
swDraw.ActivateSheet vSheets(i - 1)
Set swSheet = swDraw.GetCurrentSheet
swSheet.SetName "Sheet" & i
Next i
End Sub