それだけのコードでは何をしているのかどこが遅いのか解らないでしょう。データの取得や設定が多いなら、Range オブジェクトを使って見るとか。ここのExcel&Word関係や掲示板のワード検索をして見るとか。