Rename Sheet If

**devcon** · 03-06-2013, 12:38 PM

Good Evening,

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


    If Sheets(("Order_Export") Or ("ExportDataOne")).Name = False Then
     MsgBox "Wrong Spreadsheet ....."
    End If


Sheets("Order_Export").Select
If  Sheets("Order_Export").Name = "Request For Quotations"

Or 

If  Sheets("ExportDataOne ").Name = "Request For Quotations"

**mike7952** · 03-06-2013, 12:48 PM

This will work

Sub abc()
    If Not Evaluate("ISREF('Order_Export'!A1)") Or Not Evaluate("ISREF('ExportDataOne'!A1)") Then
        MsgBox "Wrong Spreadsheet ....."
    Else
        Sheets("Order_Export").Name = "New Name for Order_Export"
        Sheets("ExportDataOne").Name = "New Name for ExportDataOne"
    End If
End Sub

**devcon** · 03-06-2013, 01:16 PM

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

Devcon

**mike7952** · 03-06-2013, 01:26 PM

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.

    If Not Evaluate("ISREF('Order_Export'!A1)") Or Not Evaluate("ISREF('ExportDataOne'!A1)") Then

**devcon** · 03-06-2013, 01:36 PM

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** · 03-06-2013, 01:44 PM

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

See attached workbook

**devcon** · 03-06-2013, 02:09 PM

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.