Sheet name list

[g4cox]

[FONT=&quot]Hi,<o></o>[/FONT]
[FONT=&quot]<o> </o>[/FONT]
[FONT=&quot]I am trying to get a list of sheet names within the workbook listed in say Sheet1 (from A1 downwards) can anyone help?<o></o>[/FONT]
[FONT=&quot]<o> </o>[/FONT]
[FONT=&quot]Thanks[/FONT]

 

[kpark91]

Dim ws As Worksheet, i As Integer
i = 1
For Each ws in Worksheets
    Range("A" & i).Value = ws.name
    i = i + 1
Next ws

 

[g4cox]

Thanks thats great