Help with Renamaing a Worksheet

[Rocky0201]

Hi,

The following code copies an existing worksheet:

    QNSheet = "QN " & Application.UserName
    With Sheets("Quick Notes")
        .Copy After:=Sheets(Sheets.Count)
    End With

What I need to do is rename the copied worksheet to the value in QNSheet. I tried using a variation of examples that I found in some posts but receive run-time errors.

Any help would greatly be appreciated.

Thanks,

 

[patel45]

    QNSheet = "QN " & Application.UserName
    Sheets("Quick Notes").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = QNSheet

 

[Rocky0201]

Thanks patel45 for your response.

The problem is, I run this code in my sheet called Survey. When I execute ActiveSheet.Name, the Sheet Survey gets renamed to the value QNSheet instead of the sheet just copied "Quick Notes (2)". Since I cannot be always certain that the copy will create Quick Notes (2), is there a way to rename Quick Notes (2) to the value I built in QNSheet?

 

[patel45]

After execution of this line

Sheets("Quick Notes").Copy After:=Sheets(Sheets.Count)

the ActiveSheet is the new created sheet, not the original sheet

 

[ukmikeb]

Hi

Try:-

ActiveSheet.Name = "QN " & Application.UserName

hth