Excel 모든 시트 셀 내용만 지우기

아래의 스크립트를실행한다.

Sub 모든시트내용지우기()

         Dim WS_Count As Integer
         Dim i As Integer

         WS_Count = ActiveWorkbook.Worksheets.Count

         ' Begin the loop.
         For i = 1 To WS_Count

            ' 여기에 원하는 코드를 넣는다. 열린 파일에 숨긴 시트가 있으면 에러날 때가 있음
            Debug.Print ("시트 변경함 : " + ActiveWorkbook.Worksheets(i).name)
            ActiveWorkbook.Worksheets(i).Select 
            Cells(1, 1).Select
            
            '모든 셀 내용 삭제
            Cells.Select
            Selection.ClearContents

         Next i

End Sub