>>546
.Rows(r)の"."を消すかActivesheet.Rows(r)に切り替える



蛇足だが、コードにいろいろとおかしな点があるので指摘しておく

・DeleteRowを変数として宣言した直後、まだ何も代入していないのにSet DereteRow = Nothingとやるのは無意味

・ルーチン名をDelete_Rowsにするんだったら削除対象行の変数はDeleteRowではなくTargetRowsとかにした方が良い

・変数 r は「処理の範囲」ではなく「削除対象行判定のループで使用する行カウンタ」と説明しないと意味が通じにくい。「範囲ならばRangeオブジェクトじゃないのか？」と思うし、どの処理で使ってるかも分からない

・変数 ws は何のために宣言してるのか？