質問: "保存" Then System.Threading.Thread.Sleep(500) .accDoDefaultAction(CHILDID_SELF) System.Threading.Thread.Sleep(500) End If End With ClickPreserve(lst(i)) '再帰 Next End If End If End Sub
回答: .accDoDefaultAction(CHILDID_SELF) の後にExit forで抜けて、このプロシージャに来る前のプロシージャでやっていたSendmessageをコメントアウトすることでとりあえず次に進めましたので解決とします。