Create a module and put this code in it. Run the macro.

Sub PrintWorksheets()
Dim wks As Worksheet
Dim rng As Range

Set rng = Range("a1")

For Each wks In Worksheets
rng.Value = wks.Name
Set rng = rng.Offset(1, 0)
Next wks
End Sub

"BAM100" wrote:

Any way to do this? Sorry for such a basic question.

Thanks.