복사,붙여넣기 매크로인데요,질문 있습니다.

[곽분이]

Sub 한방에붙여넣기()
j = 1
For i = 1 To 10

    Workbooks.Open Filename:="C:\곽분이\" & i & ".xls"
   
    Windows(i & ".xls").Activate
    ActiveWindow.WindowState = xlNormal
    Rows("14:37").Select
    Selection.Copy
   
    Windows("all 부산.xls").Activate
    ActiveWindow.WindowState = xlNormal
    Cells(j, 1).Select
        ActiveSheet.Paste
    Windows(i & ".xls").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.Close
    j = j + 24
   
    Next
   
End Sub

----------------------------------------------------------------------------

복사해서 붙이고 화일닫는과정에서 나오는 화면 " 클립보드에 ㅇㅇㅇ가 있습니다. 또 사용하시겠습니까?" 라고 묻는걸 일일이 답하지 않고 자동으로 넘어가는 방법을 찾고 있습니다.