a quickie

fry

Active Member
Joined
Apr 25, 2007
Messages
411
I'm using this code:

Code:
Application.DisplayAlerts = False
Sheets("New Purchase Order").Delete
Application.DisplayAlerts = True
Worksheets("0000").Copy before:=Sheets(Worksheets.Count)
Worksheets("0000 (2)").Name = "New Purchase Order"
Worksheets("New Purchase Order").Move before:=Sheets(1)

to make a copy of a template worksheet named "0000" as "New Purchase Order" and then move it to the beginning of the workbook.

My question is...

Can I add something to the line with the copy statement in it so that it names it as it copies it??

And...

Because the sheet I am copying is hidden it also hides the new "New Purchase Order" sheet so is there a command to unhide the sheet??

Thanks!! :)
 

Excel Facts

Copy PDF to Excel
Select data in PDF. Paste to Microsoft Word. Copy from Word and paste to Excel.

erik.van.geit

MrExcel MVP
Joined
Feb 1, 2003
Messages
17,832
Hi,

to my knowledge you can not copy and name in one go
try this
Code:
Option Explicit

Sub copy_sheet()

Const newShName = "New Purchase Order"
Const templateShName = "0000"
    
Application.DisplayAlerts = False
Sheets(newShName).Delete
Application.DisplayAlerts = True

Sheets(templateShName).Copy before:=Sheets(1)

    With Sheets(1)
    .Name = newShName
    .Visible = True
    End With

End Sub
kind regards,
Erik

EDIT:
please click "edit" above your first message and change the topictitle to something relevant
 

loopa1

Board Regular
Joined
Sep 3, 2006
Messages
156
To Unhide your sheet, use this...
Code:
Sheets("New Purchase Order").Visible = True

To call your new new sheet something else use...
Code:
ActiveSheet.Name = "Sheet Name Here"
 

erik.van.geit

MrExcel MVP
Joined
Feb 1, 2003
Messages
17,832
perhaps you missed
EDIT:
please click "edit" above your first message and change the topictitle to something relevant
boardrules ask for descriptive titles
 

Forum statistics

Threads
1,181,658
Messages
5,931,271
Members
436,786
Latest member
Deniel

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top