Dim sh As Worksheet
Dim NextRow As Long
NextRow = 1
Worksheets(1).Columns(1).ClearContents
For Each sh In ActiveWindow.SelectedSheets
Worksheets(1).Cells(NextRow, "A").Value = sh.Name
NextRow = NextRow + 1
Next sh
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.