제가 엑셀 메크로를 만들어서 쓰고 있습니다.

데이터를 복사하는 기능에는 문제가 없습니다.
하지만 이상하게 루프가 멈추질 않습니다.

엑셀 메크로는 도움말을 보고 만든 것이고
이것을 이용해서 재물조사표를 만드는 일은 다 끝났지만(Esc강제 종료로 멈추게 할 수 있긴 하더군요.)

왜 멈추지 않는지 머리를 싸고 고민해도 잘 모르겠네요.
한 수 부탁드립니다. 엑셀 2003입니다.

Sub 숫자이동복사()
'
' Macro4 Macro
' plus이(가) 2008-01-28에 기록한 매크로
'

'

Do
    counter = 0
    myNum = 166
    myNum = myNum - 1
    counter = counter + 1
    Sheets("물품현황(2008.1.11기준)").Select  // 이 시트에서 데이터를 복사합니다.
    ActiveCell.Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("2008재물조사서 (3)").Select // 이 시트에서 복사한 데이터를 붙여넣습니다.
    ActiveCell.Range("A1").Select
    ActiveSheet.Paste
    With Selection.Interior  //칸을 색칠합니다.
        .ColorIndex = 35
        .Pattern = xlSolid
    End With
    ActiveCell.Offset(2, 0).Range("A1").Select
    
    
   Loop While myNum > 10
  
   MsgBox "루프를 " & counter & "번 반복하였습니다." // 이상하게 이 메시지가 나오지 않고 무한  Loop됩니다.
  
End Sub
이 게시물을...