SELECTED SHEETS' NAMES

F

Faraz A. Qureshi

What looping code would display dialog boxes, one after the other, displaying
the names of the Sheets which are selected/grouped?
 
B

Bob Phillips

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
 
Top