Listing Tab names in Excel

To list tabs in an Excel spread sheet use VBA

Sub ListSheetNames()
Dim R As Range
Dim WS As Worksheet
Set R = ActiveCell
For Each WS In ThisWorkbook.Worksheets
R.Value = WS.Name
Set R = R(2, 1)
     Next WS
End Sub