Hello,
So I have a span of worksheets within a workbook, each name is in the format of "20 _______" except the first of the set, which is just "20"
I want to copy this set of sheets, in order, and rename them based on the operation number the user puts in - so the next set should be 30.
Currently, I get all the worksheets copied to the end of the sheets, which is correct, and the first sheet copied is correctly renamed, but the other sheets are not remained - they just get assigned "20 ______ (2)"
I have also tried usinginstead ofws.Name
in the For Each/If loop, but that didn't workActiveSheet.name
Here's the code:
Public Sub AddNewOp() Dim opNum As Integer Dim ws As Worksheet, flg As Boolean On Error Resume Next opNum = InputBox("Enter the operation number") On Error Resume Next If opNum <> "" And IsNumeric(opNum) Then For Each ws In Sheets If ws.Name Like "*20*" Then ws.Copy After:=Worksheets(Sheets.Count) ActiveSheet.Name = opNum Range("G1") = opNum End If Next End If End Sub
Bookmarks