Sheet Deleting except specific sheet

목적

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

 

실행 결과

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

 

코드

Sub DeleteSheet()

    Dim xWs As Worksheet
    Application.ScreenUpdating = False
 	Application.DisplayAlerts = False
    'Error Window Hidden

    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
	'Error Window Option Activate


End Sub