VBA- List sheet names

Is there a quick way to generate a list of worksheet names?

i.e there are 30 sheets in a workbook and you want a list of sheet names.

Hi,
This is how you could do it from VB, it could probably point you in the right direction.

Dim objExc As Excel.Application
Dim objWbk As Excel.Workbook
Dim objWsh As Excel.Worksheet

Set objExc = CreateObject("Excel.Application")
objExc.Visible = True
Set objWbk = objExc.Workbooks.Add
For Each objWsh In objWbk.Worksheets
List1.AddItem objWsh.Name
Next

Gazzo.