"DK=DK-1"はどこかに入ってますか？ 入っていなかった場合、それが原因です。 For DK=□ To 1 Step -1 でも構いません。