[Excel VBA] 특정 시트(Sheet)만 남기고 모두 삭제하기

목적

: 엑셀에서 특정한 시트 하나만 남기고 모두 삭제 or 원하는 시트만 남기고 모두 삭제하기

실행 결과

: 지정한 시트만 남고 모두 삭제됨

코드

Sub DeleteSheet()     Dim xWs As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name <> "Sheet1" And xWs.Name <> "남길시트이름" Then 'Sheet1 과 남길시트이름 두개만 남기고 모두 삭제됨 xWs.Delete End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub