No question here, just a procedure for the archive.

Search criteria: worksheet tab names report return worksheet tab names
return tab names return worksheet chart names return tab names
return chart sheet names report sheet tab names report chart names
return all worksheet names return all chart sheet names return all chart names
list all tab names list all worksheet names list all chart sheet names list all
chart names


Sub SheetTabAndChartTabNamesReport()

'Return all worksheet tab and chart tab names to a new worksheet
On Error Resume Next
ActiveWorkbook.Worksheets.Add.Name = "WkSheetNamesReport"
Sheets("WkSheetNamesReport").Select
Range("A1").Select
Dim iSheet As Long
Dim iChart As Long
For iSheet = 1 To ActiveWorkbook.Worksheets.Count
ActiveCell.Offset(iSheet - 1, 0) = "'" & Worksheets(iSheet).Name
Next iSheet

For iChart = 1 To ActiveWorkbook.Charts.Count
ActiveCell.Offset(iChart - 1, 0) = "'" & Charts(iChart).Name
Next iChart


End Sub