Thanks Dave This works GREAT!!
have a good Turkey day.

"Dave Peterson" wrote:

Maybe...

ThisWorkbook.VBProject.VBComponents("Sheet1").Name = "NewCodeName"

if you don't know the original codename:

dim wks as worksheet
set wks = activesheet
ThisWorkbook.VBProject.VBComponents(wks.codename). Name = "NewCodeName"





Norman Jones wrote:

Hi Skid,

A sheet's codename cannot be altered programmatically at run time; it can,
of course, be changed manually from the VBE properties window.

---
Regards,
Norman

"skid" wrote in message
...
This is changing the wrong name propery. In the Properties pane I need to
change the (Name) property. is this possible in VB.

thanks skid

"Norman Jones" wrote:

Hi Skid,

Try something like:

'==========
Sub Test2()

Sheets("Sheet1").Name = "New Sheet"

End Sub
'<<==========

---
Regards,
Norman



"skid" wrote in message
...
Hello

I am trying to Change The worksheet name in a macro (NOT THE TAB NAME)
is
this possible

Thanks





--

Dave Peterson