Hopefully an easy one...

[klarowe]

Is there a way to change the order of the sheets in the VBA project window? I want to change the order around so that it matches the actual document, not alphabetical.

And on a side note/question, is there a way to export/save a VBA project as a word document so that I have a back-up of the code that I can easily copy/paste in the event of a loss of the code??? I found I can print it to PDF, but it doesn't allow me to select the text to copy/paste it.
Thanks!

 

[klarowe]

I got to here so far:

Sub ChangeCodeNames()
    Dim i As Long
    For i = 1 To Worksheets.Count
        If i = 1 Then
            ActiveWorkbook.VBProject.VBComponents(Worksheets(i).CodeName).Properties("_CodeName") = "Sheet00" & i
        Else: ActiveWorkbook.VBProject.VBComponents(Worksheets(i).CodeName).Properties("_CodeName") = "Sheet0" & i
        End If
    Next i
End Sub

but I can't figure out how to replace "If i = 1" with "If i = 1-9"

 

[VoG]

Try

If i <= 9 Then

 

[klarowe]

That was it. I knew it had to be something easy that I was missing... lol.