excel / vba / sheet 목록 가져오기

Sub 목록추출() '함수명

Dim SheetNames()

SheetCount = ActiveWorkbook.Sheets.Count

ReDim SheetNames(1 To SheetCount)

'Sheets("목록").Select              ' "목록" 이라는 sheet에 sheet목록 만들기

Range("A2").Select                  'A2 cell부터 시트명입력

For i = 1 To SheetCount

   SheetNames(i) = ActiveWorkbook.Sheets(i).Name

   ActiveCell = ActiveWorkbook.Sheets(i).Name

   ActiveCell.Offset(1, 0).Select

Next i

End Sub