title: xlToRight fills all the way Right
body: <p>I wanted to fill in cell color starting from certain column number to the last column, therefore I've used</p>
  <pre><code>    Set colour_range = Range(Cells(1, colnum).Offset(0, 1), Cells(1, Columns.Count).End(xlToRight))
  colour_range.Interior.Color = RGB(255, 153, 0)
  </code></pre>
  <p>Everything works fine, however the interior.color does not stop at the last not empty cell (like I am using ctrl+right or ctrl+shift+right) but goes all the way with filling till the last column (column XFD).</p>
  <p>Any suggestion show to overcome that? Its just a cosmetic issue but it keeps bothering me</p>