You can try out the below macro. If you are new to macros..
--Set the Security level to low/medium in (Tools|Macro|Security).
--From workbook launch VBE using short-key Alt+F11.
--From menu 'Insert' a module and paste the below code.
--Get back to Workbook.
--Run macro from Tools|Macro|Run <selected macro()>
Sub GetSheetNames()
Dim sh As Worksheet, lngRow As Long
For Each sh In ActiveWorkbook.Worksheets
lngRow = lngRow + 1
Range("A" & lngRow) = sh.Name
Next
End Sub