How to extract worksheet name with Excel VB

i = 1

For each page in the application. worksheet

Cell (i, 1). Value = sSheet. name

i = i + 1

next page

End joint