One way

Sub SheetNames()
Dim wkSht As Worksheet
Range("A1").Select
For Each wkSht In Worksheets
Selection = wkSht.Name
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Next wkSht
End Sub


--

Regards,

Peo Sjoblom

"Nemesis_uk" wrote in message
ups.com...
Greg, very handy little routine, but could you suggest a solution for
this in reverse. i.e sheets already exist with different names, run a
macro to put names of sheets down a1-a11 in sheet 1?

cheers