質問: 6 end sub
回答: 他の人が作ったコードに加筆するのは 気が進みませんが、以下でどうでしょうか? public m, n private sub worksheet_selectionchange(byval target as range) if m <> 0 then range(cells(m, 1), cells(m, 256)).interior.colorindex = n end if m = target.row n = target.interior.colorindex range(cells(target.row, 1), cells(target.row, 256)).interior.colorindex = 6 target.interior.colorindex = n '新たに加えた部分 end sub