전체 쉬트 원복화

Sub AllSheetArg()
On Error Resume Next
Dim Sht As Worksheet
For Each Sht In Sheets
    Sht.Activate
    With ActiveWindow
        .Zoom = 100
        .View = xlNormalView
        .FreezePanes = False
    End With
    Cells(1, 1).Select
Next Sht
End Sub

전체 쉬트들에 대해서

1. 줌을 100%로 맞춤
2. 페이지뷰가 아닌 기본보기로 바꿈
3. 틀고정이 있으면 해제함
4. "A1"셀에 선택셀이 위치

바꿔주는 매크로다.

나중에 만들 워크쉬트 툴에 추가할 예정