Rename Sheet If

[devcon]

Good Evening,

I need your help to rename a sheet base on the name.

Please Login or Register  to view this content.

[mike7952]

This will work

Please Login or Register  to view this content.

[devcon]

Thank you for your reply.
Unfortunately no working with the MsgBox "Wrong Spreadsheet .....", even the sheet is "Order_Export"

Devcon

[mike7952]

This line test if the worksheet name exists in the active workbook. If 1 of the worksheets does not exists it will throw the message.

Please Login or Register  to view this content.

[devcon]

Dear mike7952,

The sheet name is "Order_Export" or "ExportDataOne".
The workbook name is "Order.xlsx".
Now if run the VBA a message say "Wrong Spreadsheet .....".
I believe that you reference to "A1" which is wrong reference.

Thank you.

[mike7952]

A1 is not a wrong Reference, A1 is a cell Ref and every sheet has cell A1.

See attached workbook

[devcon]

Dear mike7952,

Probably wrongly I have expressed the query.

This spreadsheet is opened from an Access query that sometimes the worksheet is called 'Order_Export' or 'ExportDataOne'.
Depending on how you call the worksheet (one sheet only) should be renamed to 'Request For Quotations'.

Thank you.