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!

 

[VoG]

Maybe like this

Sub ChangeCodeNames()
Dim i As Long
For i = 1 To Worksheets.Count
    ActiveWorkbook.VBProject.VBComponents(Worksheets(i).CodeName).Properties("_CodeName") = "X" & i
Next i
For i = 1 To Worksheets.Count
    ActiveWorkbook.VBProject.VBComponents(Worksheets(i).CodeName).Properties("_CodeName") = "Sheet" & i
Next i
End Sub

 

[VoG]

On your side note you can use File > Export to save a module as a .bas file.

 

[klarowe]

With the code I am getting this error:
"Programmatic Access to Visual Basic Project is not trusted"

And if I have the entire VBAProject selected (instead of just a single sheet/module) the export option is grayed out.

 

[VoG]

See http://support.microsoft.com/kb/282830

AFAIK you can only export one module at a time.

 

[klarowe]

Ok, the code you posted works on renaming the sheets in the VBA Project window, but I am hoping to have it use the workbook and put it in the order that it appears in the workbook (Home, Index, etc). The sheets are not in order in the workbook and in the project it keeps putting the sheets in alpha. order (sheet1, sheet11, sheet12, sheet2, sheet20, etc instead of sheet1,sheet2,sheet3,etc).

 

[VoG]

Then perhaps

Sub ChangeCodeNames()
Dim i As Long
For i = 1 To Worksheets.Count
    ActiveWorkbook.VBProject.VBComponents(Worksheets(i).CodeName).Properties("_CodeName") = Worksheets(i).Name
Next i
End Sub

BTW, this is not "simple"

 

[klarowe]

I found a solution.. its going to take a little while, but it will work. I am changing the codenames in the properties box for each sheet. That seems to work.

 

[klarowe]

lol. I was hoping it was something like right click here and select order... or something like that... lol
Thanks for the help!

 

[klarowe]

Anyone know if there is a way to use this code:

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

but when it gets to sheet 10 have it change to "Sheet0" & i? That way it will list them in proper order (001-009, 010,011, etc)