엑셀 시작후 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
alexnetster@gmail.com/ 나중에 재사용시 흔적을 남겨 찾기 쉽게 하는 것이 목적/ 최대한 간단하게.