Hello, I have the code below to copy sheet1 and move it to the end renaming it and that part works well, however I get an error message (1004 That name is already taken. Try a different one) if I try and create another copy. What could be added to the code below to check if the name/date exists and if it does just add a number at the end like 2 then 3 and so on.
Please Login or Register to view this content.
Please Login or Register to view this content.
@Logit thank You.... Your code creates the new sheet correctly but its not copying the first sheet using:
Sheets(1).Copy After:=Sheets(Sheets.Count) 'Refers to first sheet and copies.
Where would I add that back in? On a side note, when copying using Sheets(1) which I read that refers to the first sheet in the workbook, how do you refer to the sheet a different way? The sheet is Sheet13(Name Of sheet).
I tried the below code but I get an error 424 Object required
Set wSheet = Sheets(1).Copy(After:=Sheets(Sheets.Count))
Last edited by oxicottin; 03-20-2024 at 06:26 PM. Reason: added info
Sheets can be referenced in at least two ways:
-or by means of an index (the order of the sheets in the workbook)-or by the name of the sheetPlease Login or Register to view this content.The following code copies the sheet named "Sheet13", inserts it last, renames it to the new name, and possibly increments the new name if one already exists:Please Login or Register to view this content.ArtikPlease Login or Register to view this content.
Thanks @Logit and @Artic for the code it works great!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks