hi kubota1000,

Is there a way to know how many passes are required? here is a simple loop you could use, this loops 10 times
  For i = 1 to 10
        Cells(i, 1) = i     'your code goes here
    Next i
Will an error occur when minimizing is complete, and you try to run the code again?