アクティブ行をハイライトして段ずれを防ぎます

横に長い表の1行だけに入力する際、目で追っているといつの間にか違う行に入力してしまった。という経験はありませんか？ パソコンの画面に定規を当てるわけにもいきませんから、VBAを使って行をアクティブにしたときに1行をハイライトするロジックを作成しました。 これがあればヒューマンエラーを防止して業務の効率化が図れますね。