안녕하세요, 아래와 같은 코드를 짜서 진행을 하는 과정에서 문제가 있어 문의드립니다.

 

아래 코드를 개인용 매크로 통합문서로 세팅하여 작업하고 있습니다.

 

아래 코드를 직접 실행 (f5)로 하면 정상적으로 진행이되는데

단축키 컨트롤 + 쉬프트 + A를 통해 실행하면

 

첫줄만 실행되고 멈추고 더 이상 진행이 안됩니다.

 

단축키가 문제일 수도 있을 것 같아서  컨트롤 + 쉬프트 + Q로 세팅해보았으나

 

동일한 현상이 발생합니다.

 

혹시 어떤 부분이 문제인지 알 수 있을까요??

 

감사합니다.

 

====

Workbooks.Open Filename:="C:\Users\Administrator\Desktop\DHL 접수 엑셀 (FNC함수용).xlsx", UpdateLinks:=3


Workbooks.Open Filename:="C:\Users\Administrator\Desktop\DHL 접수 엑셀 (FNC).csv"

Windows("1.xlsx").Activate

Sheets("원본").Copy After:=Workbooks("DHL 접수 엑셀 (FNC).csv").Sheets(1)
Sheets("원본").Select
Sheets("원본").Name = "sheet1"

Windows("DHL 접수 엑셀 (FNC함수용).xlsx").Activate

Cells.Select
Selection.Copy

Windows("DHL 접수 엑셀 (FNC).csv").Activate
Sheets("DHL 접수 엑셀 (FNC)").Select

Cells.Select
ActiveSheet.Paste

Range("A2").Select
Application.CutCopyMode = False
Cells.Select
Range("A2").Activate
Selection.Replace What:="[DHL 접수 엑셀 (FNC함수용).xlsx]", Replacement:="", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Windows("DHL 접수 엑셀 (FNC함수용).xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close

End Sub