회사 운영에 관한 내용은 없는 것 같아서 한번 올려봅니다.

 

제가 잘 모르긴 하지만 이 파일은 만들어진지 20여년이 되가는 파일이고 약 10여년 전에 근무 하던 사람이 일을 수월하게 하기 위해

 

이런 매크로를 작동시킨 것 같은데요.

 

이 매크로가 어떤 기능을 하는건지 알려주실 분 혹시 계실까요?

 

ㅠㅠ 부탁드려요

 

Sub Macro4()
'
' Macro4 Macro
' 이재귀이(가) 2002-08-06에 기록한 매크로
'

'
    Range("E11:M12").Select
    Selection.Copy
    Range("E13").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(3).Activate
    Range("C32").Select
    ActiveWindow.Panes(1).Activate
    Range("E7").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("C32").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("E9").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("C33").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("E8").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("E32").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("E10").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("E33").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("I7").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("H32").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("I9").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("H33").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("I8").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("K32").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("I10").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("K33").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("M7").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("N32").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("M9").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("N33").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("M8").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("Q32").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.Panes(1).Activate
    Range("M10").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.Panes(3).Activate
    Range("Q33").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.SmallScroll Down:=3
    ActiveWindow.Panes(1).Activate
    Range("H5").Select
    ActiveSheet.Shapes("Picture 14").Select
    Application.CutCopyMode = False
    Selection.OnAction = "팔월누계"
    Range("N5").Select
End Sub