Sheets(2) = 2nd tab? = Sheet2 (Sheet2)?

[Dave Peterson]

ThisWorkbook.VBProject.VBComponents("Sheet1").Name = "NewCodeName"
where sheet1 is the code name

or
dim wks as worksheet
set wks = activesheet
ThisWorkbook.VBProject.VBComponents(wks.codename).Name = "NewCodeName"
'or
ThisWorkbook.VBProject.VBComponents(wks.CodeName) _
.Properties("_CodeName").Value = "NewCodeName2"


But you'll have to toggle a security setting
tools|macro|security|trusted publisher tab
check "trust access to Visual basic project"

(added in xl2002 IIRC--who knows where it's hiding in xl2007 <vbg>.)

 

[Dave Peterson]

Ps.

I saw a note from Chip Pearson about the first version.
Don't use it in xl97.
http://support.microsoft.com/kb/q172500/

Going through the .properties("_Codename") is ok, though.

 

[Max]

Thanks for all the clarifications, Dave.

---