Renaming all drawing sheets

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

SolidworksApi macros