Offset Syntax

[Danny Ray]

Hello,
Can someone tell me the proper suntax to condense the following
bit of code?

Thanks.

With Target
 .Offset(0, 1).Borders.ColorIndex = 5
 .Offset(0, 2).Borders.ColorIndex = 5
 .Offset(0, 3).Borders.ColorIndex = 5
 .Offset(0, 4).Borders.ColorIndex = 5
 .Offset(0, 5).Borders.ColorIndex = 5
 .Offset(0, 6).Borders.ColorIndex = 5
 .Offset(0, 7).Borders.ColorIndex = 5
 .Offset(0, 8).Borders.ColorIndex = 5
 .Offset(0, 9).Borders.ColorIndex = 5
 .Offset(0, 10).Borders.ColorIndex = 5
 .Offset(0, 11).Borders.ColorIndex = 5
 .Offset(0, 12).Borders.ColorIndex = 5
 .Offset(0, 13).Borders.ColorIndex = 5
 .Offset(0, 14).Borders.ColorIndex = 5
 .Offset(0, 15).Borders.ColorIndex = 5
 .Offset(0, 16).Borders.ColorIndex = 5
 .Offset(0, 17).Borders.ColorIndex = 5
 .Offset(0, 18).Borders.ColorIndex = 5
 .Offset(0, 19).Borders.ColorIndex = 5
 .Offset(0, 20).Borders.ColorIndex = 5
 .Offset(0, 21).Borders.ColorIndex = 5
 .Offset(0, 22).Borders.ColorIndex = 5
 .Offset(0, 23).Borders.ColorIndex = 5
 .Offset(0, 24).Borders.ColorIndex = 5
 .Offset(0, 25).Borders.ColorIndex = 5
 .Offset(0, 26).Borders.ColorIndex = 5
 .Offset(0, 27).Borders.ColorIndex = 5
 .Offset(0, 28).Borders.ColorIndex = 5
 .Offset(0, 29).Borders.ColorIndex = 5
 .Offset(0, 30).Borders.ColorIndex = 5
 .Offset(0, 31).Borders.ColorIndex = 5
 .Offset(0, 32).Borders.ColorIndex = 5
 .Offset(0, 33).Borders.ColorIndex = 5
 .Offset(0, 34).Borders.ColorIndex = 5
 .Offset(0, 35).Borders.ColorIndex = 5
 .Offset(0, -1).Borders.ColorIndex = 5
 .Offset(0, -2).Borders.ColorIndex = 5
 .Offset(0, -3).Borders.ColorIndex = 5
 .Borders.ColorIndex = 5
 End With

 

[Andrew Poulsom]

Try:

With Target.Offset(0, -3).Resize(Target.Rows.Count, 38)
   .Borders.ColorIndex = 5 
End With

 

[Oorang]

How about:
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> a()
X = "D4"
Range(Range(X).Offset(0, -3).Address & ":" & Range(X).Offset(0, 35).Address).Borders.ColorIndex = 5
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Danny Ray]

Thanks Andrew,
That's quite a difference. I like that Resize method.

 

[Danny Ray]

Hello Oorang,
I just saw your post. Thanks to you as well.

 

[Oorang]

NP but I like the resize method too, it's a little less typing