| 
    
     |  | >つんさんのおっしゃられたように > .column → 実際の列番号
 >と変えるだけでOKでした。(下記参照のこと)
 >=======================================================
 >With Selection
 > Range(Cells(.Row, 2), Cells(.Rows.Count + .Row - 1,10)).Interior.ColorIndex = 34
 >End With
 >=======================================================
 
 えと、私は、
 
 With Selection
 Range(Cells(.Row, .Column + 1), Cells(.Rows.Count + .Row - 1, .Column + 10)).Interior.ColorIndex = 34
 End With
 
 のままで実行してOK!と言ったつもりなんですけど・・・
 実際の列番号を指定してしまうと、列が固定されてしまって、
 選択したセル範囲の2列目・・・というのは、実現出来ないんじゃないですか?
 私がご質問の意味を読みとれてないだけかしらん?
 もう一度お確かめくださいませ〜
 
 |  |