Excel 시트 이름 리스트 만들기 - VBA

 

VBA 코드 연결위한 버튼을 만들고, 새로만들기를 누릅니다.

Sub ~ End Sub 사이에 아래 내용을 참고하여 코드를 넣어주고 실행합니다.

Sub 단추1_Click()
    Dim SheetList As Worksheet
        Dim i As Integer, cntsheet As Integer
        Set SheetList = Sheets("Index") '리스트를 만들어줄 시트 명

        With SheetList
            cntsheet = Worksheets.Count
            '.Columns("H:H").EntireColumn.ClearContents 'A~Z 컬럼까지 지우기

            For i = 2 To cntsheet
                '하이퍼 링크 없이
                '.Cells(i + 1, 1) = i 'Cells(행,열)
                '.Cells(i + 1, 2) = Sheets(i).Name                

                '하이퍼 링크 포함
                SheetList.Hyperlinks.Add _
                    Anchor:=SheetList.Cells(i + 9, 8), _
                    Address:="", _
                    SubAddress:="'" & Sheets(i).Name & "'!A1", _
                    TextToDisplay:=Sheets(i).Name

                    'If i < 6 Then   '불필요한 부분 회색 셀 칠하기
                    '    Cells(i + 9, 8).Interior.ColorIndex = 0
                    'Else
                    '    Cells(i + 9, 8).Interior.ColorIndex = 16 '회색
                    'End If

 

                'Index 페이지 바로가기
                'Sheets(i).Hyperlinks.Add _
                    Anchor:=Sheets(i).Cells(1, 1), _
                    Address:="", _
                    SubAddress:="'" & SheetList.Name & "'!A1", _
                    TextToDisplay:="test"
            Next i

        '.Columns("H:H").EntireColumn.AutoFit 'A~B 자동 폭맞춤

    End With
End Sub

앞의 버튼 만들어 연결하는 것을 제외하고,
위 코드를 붙여넣고 실행 버튼으로 돌려도 됩니다.