엑셀 - 여러개의 시트 중 이름만 추출하기

Q) 엑셀 파일에서 시트가 100가지가 넘습니다.
한 시트에 100가지가 넘는 시트의 이름만 추출 할려고 합니다.
각 시트마다 더블클릭해서 이름 복사해서 붙여넣기는 너무 힘들더라구요
쉬운 방법이 없을까요?

A) 안녕하세요
답변이 없어 드려봅니다.

모듈창에  아래 매크로를 넣고 실행해 보세요. 
(Alt + F11 --> VBA창에서 --> 삽입 --> 모듈)

* stName(나열할 시트)에  버튼하나 만든 후
 아래 매크로명을 연결하고 클릭하면 매크로 실행됩니다.
도움이 되었기 바라며 날 마다 좋은 날 되헤요.


Sub 시트명나열()
  Dim Ws As Worksheet
  Dim ix As Integer, it As Integer

' stName은 시트명을 나열할시트의 시트명입니다. 
' 님의 해당 시트명으로 수정하세요.
  Set Ws = Sheets("stName")
  With Ws
     it = Worksheets.Count
     .Columns("A:B").EntireColumn.ClearContents
     .Range("a1:b1") = Array("No", "시트명")
     For ix = 1 To it
        .Cells(ix + 1, 1) = ix
        .Cells(ix + 1, 2) = Sheets(ix).Name
    Next ix
    .Columns("A:B").EntireColumn.AutoFit
  End With
End Sub


https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020101&docId=221244450&qb=7JeR7IWAIO2MjOydvOydmCDsi5ztirjsnbTrpoQ=&enc=utf8&section=kin.ext&rank=28&search_sort=0&spq=0 

엑셀 파일에서 여러개의 시트 중 이름만 추출하기