Recording Macro To Duplicate Page And Rename To Numeric Value [Solved]
Ask a questionShaun@12PostsSunday March 13, 2016Registration date
March 15, 2016
Last seen - Latest answer on Mar 15, 2016 10:04AM
I am trying to record a macro that duplicates a page and renaming it to another file name but need to follow in numeric order.
I have an 'Invoice' Excell workbook to invoice my clients.
My current page name is 'Invoice 187' obviously the next one should follow in numeri order: 'Invoice 188'.
I then also have a cell in the document that has the title 'Invoice' and the cell nect to it should have this number as well. The sell is E8.
I do not know how to do this, can someone please help?
What I have is the following:
' Keyboard Shortcut: Ctrl+p
Sheets("Invoice 187").Copy After:=Sheets(1)
Sheets("Invoice 187 (2)").Select
Sheets("Invoice 187 (2)").Name = "Invoice 188"
ActiveCell.FormulaR1C1 = "188"
Any help would be appreciated
Thank you in advanceiated
Thank you in advanceou in advance
The following code will do as requested, even when you reach the 4 digits.
Just make sure you run the code from the latest invoice.
Dim MyNumber As Integer
MyNumber = Right(ActiveSheet.Name, 4) + 1
ActiveSheet.Name = "Invoice " & MyNumber
Range("E8").Value = MyNumber