You could try forcing a recompile after naming it

Application.VBE.CommandBars.FindControl(ID:=578).E xecute

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Bill" wrote in message
link.net...
Hello,
I am trying to use codenames of sheets to track sheet name changes. But
occassionally, I get nothing for a code. For example,

sname = activesheet.name
coden = sheets(sname).codename

coden comes up with nothing. What can cause that?

Thanks,

Bill