Need help with following code.
My workbooks can have many worksheets. Each worksheet has its own purpose. I like to create a new window for each worksheet and then tile them.
I took the following from support.microsoft and inserted my code:
Sub WorksheetLoop2()
' Declare Current as a worksheet object variable.
Dim Current As Worksheet
' Loop through all of the worksheets in the active workbook.
For Each Current In Worksheets
' Insert your code here.
Sheets.select
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlTiled
' This line displays the worksheet name in a message box.
MsgBox Current.Name
Next
End Sub
It works but all new windows shows the first worksheet. I would like each window to show the next worksheet.
Also, I would like the new windows to start at second worksheet because I end up with an extra window at the end of the loop.
I cannot use sheet names because sheet names change ofen.
Your help is greatly appreciated.