엑셀 특정 탭 남기고 다 닫기 .vbs

 엑셀 시작후

0. 작업할 시트를 염

1. alt + F11 누름

2. 왼쪽 트리에서 통합시트 를 선택 후 우클릭

3. 메뉴에서 삽입 > 모듈 선택

4. 아래 모듈 붙여 넣기 후 남겨놓을 시트 이름으로 변경후 실행

Sub DeleteSheets1()

    Dim xWs As Worksheet

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    For Each xWs In Application.ActiveWorkbook.Worksheets

        If xWs.Name <> "Sheet8" Then

            xWs.Delete

        End If

    Next

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

End Sub