Rename a worksheet and save change

[ronaldmacdonald]

Hi everyone

Does anyone know the command to rename a worksheet in an active workbook and then save the change? For example I have a workbook called "a" which is open and activated. The worksheet within is called "b" and I want to rename it "a" and save the change to the workbook.

Does this change take effect immediately if the workbook is open and active?

Thanks

Ronald

 

[xlbo]

with Activeworkbook
.sheets("b&quot.name = "a"
.save
end with Rgds
Geoff
"Some cause happiness wherever they go; others whenever they go."
-Oscar Wilde

 

[ronaldmacdonald]

Thanks Geoff

If a worksheet has a date extension e.g "a1332003"
but I didnt know the date extension how could I reference it, i.e. the "a" portion is always constant. There would only be the single worksheet in a given workbook.

So my statement:
With ActiveWorkBook
.Sheets("a whateverdate&quot.name = "b"
.save
end with

Does the first worksheet have a constant reference that can be used irrespective of name?


Cheers
Ronald

 

[ronaldmacdonald]

Doh!

Im being REALLY dumb now:---

With ActiveWorkBook
.ActiveSheet.Name = "b"
.Save
End With


seems to work!!!

Ronald