Codename Null after adding a new sheet

[BrighterLater]

PLease could you comment on this code:


' General purpose Sort Sheet

New_wb.Sheets.Add After:=New_wb.Sheets(1)
ActiveSheet.Name = apsSort

i = New_wb.VBProject.VBComponents.Count

Without the line

i = New_wb.VBProject.VBComponents.Count

Activesheet.codename is NULL

I tried Waiting for it to resolve but it did not.
But it would appear that the VBProject code refreshes the project????

There was a post on Wed 22 Dec 2004 from gbTek.com with a similar query that did not seem to get resloved. Any comments as to what is happening would be most appreciated.

 

[Oorang]

Post Removed because I answered the wrong question

 

[Andrew Poulsom]

When I ran this:

Sub Test()
    Const apsSort = "Temp"
    Dim New_wb As Workbook
    Set New_wb = Workbooks.Add
    New_wb.Sheets.Add After:=New_wb.Sheets(1)
    ActiveSheet.Name = apsSort
    MsgBox ActiveSheet.CodeName
End Sub

the CodeName popped up. I don't know why it should be null for you.

 

[BrighterLater]

Thank you for taking the time to answer Andrew.

I guess its some interaction with my other 14,000 lines of code (400 procedures). I had written similar test code too and it works fine for me too in isolation but in the (possibly over)complex context of the rest of my project, believe me, the CodeName is not set and the addition of:

i = New_wb.VBProject.VBComponents.Count

makes it appear.
No-one was able to resolve the issue for the post on Wed 22 Dec 2004 from gbTek.com, I was hoping that someone might shed light on it on the basis that the workaround above nudges it into submission.

Again, thank you for taking the time to run your test. Mike