Sets current workbook to names of existing workbook tabs

workbooknames

Sub ListWorkSheetNames()
'Updateby20140624
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
For i = 1 To Application.Sheets.Count
xWs.Range("A" & i) = Application.Sheets(i).Name
Next i
End Sub