Al
This macro places all the sheet names in Column A of a sheet named
"ExistingSheet" starting in A1. HTH Otto
Sub ListShtNames()
Dim Dest As Range
Dim ws As Worksheet
With Sheets("ExistingSheet")
Set Dest = .Range("A1")
For Each ws In ThisWorkbook.Worksheets
Dest = ws.Name
Set Dest = Dest.Offset(1)
Next ws
End With
End Sub

"Al" wrote in message
...
What would be the vb code to create a list of the sheet names in an
existing
sheet?