I have this macro below that works fine when I only need to copy 2 sheets, but lets say now I have 10? How would I tweak my code below for that?
Sub CopyToNew()
Dim NmStr As String
NmStr = ActiveWorkbook.Name
'Select Next Sheet
activesheet.next.select
'Copy the active sheet to a new Workbook.
ActiveSheet.Copy
Windows(NmStr).Activate
'Select Next Sheet
activesheet.next.select
'Copy the active sheet to a new Workbook.
ActiveSheet.Copy
Windows(NmStr).Activate
End Sub
Sub CopyToNew()
Dim NmStr As String
NmStr = ActiveWorkbook.Name
'Select Next Sheet
activesheet.next.select
'Copy the active sheet to a new Workbook.
ActiveSheet.Copy
Windows(NmStr).Activate
'Select Next Sheet
activesheet.next.select
'Copy the active sheet to a new Workbook.
ActiveSheet.Copy
Windows(NmStr).Activate
End Sub