I played with your code and had no problems, but I did find

support.microsoft.com/default.aspx

Which explains there is a problem if you put it in a loop. The workaround is
to occasionally save the worksheet. (The article has an example)