Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
return all worksheet tab names and chart sheet tab names in report - an example
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Chart worksheet names keep resetting | Charts and Charting in Excel | |||
using the Excel generic worksheet names instead of user-given names in code | Excel Discussion (Misc queries) | |||
MAKE A LIST OF NAMES FROM REPEATED NAMES IN THE SAME WORKSHEET | Excel Discussion (Misc queries) | |||
Disappearing Chart Worksheet Names | Excel Discussion (Misc queries) | |||
Copying a sheet with a chart that uses Excel Names | Charts and Charting in Excel |