Can you do Early Binding to an Excel Workbook thats already open?

Hi,

I am searching Google ATM, & not seeing a clear answer. From what I seen in my reading it looks like people open the object when doing EarlyBinding.
So the question can we do earlyBinding with an already open object & if its possible how would one do this?

lol, I dont even know if thats the problem I just assume, cause my code worked with:
"Set wBk = Workbooks.Add", but I changed that to:
"Set wBk = ActiveWorkbook".
Now I get a 438 RunTimeError Object doesn't support this property or method on this line.
Dim CodeNameProp As VBIDE.Property: Set CodeNameProp = vbProps(NewName)

Im trying to programmatically change my Sheets CodeNames.

TIA for any help

Hi,
Just let me start off by say what an honor it is that your helping me. I have read soo.... many of your posts.
lol while I was cleaning up my code to present to you I fixed it. I change:
Set CodeNameProp = vbProps("_Codename")
to
Set CodeNameProp = vbProps("MyVar") when I was testing & just now I changed it back it worked.
Thats how BadAs# you are. You just ask for the code & problems fix themselves. +1Rep 4 you Norie thanks you fix & Solved this for me simply by requesting to view the code. [If only all of lifes problems were solved, so easily].
However, now that its working I can see that my loop isn’t working correctly. I haven’t had enough practice with them to really know what Im doing yet. I just mention cause, maybe if you wouldnt mind. When your done laughing at my code you could help with the loop & the overall procedure. Like am I doing anything dumb I shouldnt be doing? [Aside from reIndexing my sheets].
Ok now down to business heres my Code:

Please Login or Register  to view this content.

I am such a wanna-be geek. I cant believe how much I gush when one of you guys acknowledge me ahh.. I need help. lol…
Oh, my loop isnt working; in the way-of I keep renumbering the sameSheet & the messageBox is echoing back the next Sheet.Name.
[You probablly knew without me saying, but yeah thats what its doing]

Loop through the workbook & renumber my sheetsCodeNames. In a workbook I have they are all over the place with the lowest number being 50 something. I would like it to be 1-300 or whatever.

So…. AWESOME !!!! You just saved at least half a day, never mind getting me un-stuck with my original problem. You’re a Gem a million thankYOUssss……..