contiguous-ish active range selection?

[MsDeth]

I'm sure this has been asked/answered before, but had no luck searching the forum.

Is there a way to condense this:

If ActiveCell = "V" Then
    With ActiveCell.Interior: .colorindex = 19
    With ActiveCell.Offset(0, -1): .Interior.colorindex = 19
    With ActiveCell.Offset(0, 1): .Interior.colorindex = 19
   With ActiveCell.Offset(0, 2): .Interior.colorindex = 19
    With ActiveCell.Offset(0, 3): .Interior.colorindex = 19
    With ActiveCell.Offset(0, 4): .Interior.colorindex = 19
'etc., etc.

Into something along the lines of

 If ActiveCell = "V" Then
With ActiveCell.Interior AND ActiveCell.Offset(0,-1) _
AND etc., etc.: .Interior.colorindex = 19

or

 If If ActiveCell = "V" Then
With ActiveCell.Offset (0,-1) THROUGH ActiveCell.Offset(0,4) _
:.Interior.colorindex = 19

I realize the "AND" or "THROUGH" won't do the trick, just trying to make it obvious what I'm trying to accomplish...I'd like to "condense" the code a bit.
Any help appreciated!

-MsDeth

 

[Scott Huish]

Hi, does this work for you?

Sub test()
If ActiveCell = "V" Then _
    ActiveCell.Offset(, -1).Resize(1, 6).Interior.ColorIndex = 19
End Sub

 

[MsDeth]

Hi, does this work for you?

Sub test()
If ActiveCell = "V" Then _
    ActiveCell.Offset(, -1).Resize(1, 6).Interior.ColorIndex = 19
End Sub

Indeed, it works perfectly. I'd never encountered ".resize"; glad to learn about it.
Thanx!

-Ms.Deth