Macro - Automatically List All Worksheets Within Workbook?

How do you automatically list all the worksheets within a workbook? I did some searching and decided to use the following code:

Sub ListWorksheets()

'Lists all the sheet names in the workbook onto the _
first sheet (starting at cell a4)

Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(1).Cells(i, 1) = Worksheets(i).Name
Next i

End Sub

It would be very useful if I could control the row in which the data is returned. "starting at cell [U]a4[U] seems to be that part of the command, but it still returns in the 1st row.