> 検索する部分はここのサンプル同様> Sheet.Cells.Find(StrSerial).Activate> だけではだめなのでしょうか?花ちゃんさんのご指摘どおり、やってみたのですがやはりエラーは改善されませんでした。もう少し、考えてみたいと思います。本当にありがとうございます!