Sub 목록추출()
Dim SheetNames()
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
'Sheets("목록").Select
Range("A1").Select
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