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

Enter current date or time
Ctrl+: enters current time. Ctrl+; enters current date. Use Ctrl+: Ctrl+; Enter for current date & time.
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
 
Upvote 0
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"
 
Upvote 0

Forum statistics

Threads
1,213,524
Messages
6,114,117
Members
448,549
Latest member
brianhfield

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
Back
Top