Select every other cell on the active row

[Blunder1]

Hi,

I need to select from columns D to AJ every other cell in the same row as the activecell. Then put a border on each side.

Seems simple but i'm stuck!. Any help would be appreciated.

Thanks in advance

Blunder

 

[Jared_8878]

Option Explicit

Sub tango()
Dim i As Integer

i = Selection.Row

Range("D" & i & ":" & "AJ" & i).Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

End Sub



Question: when you said "every other cell" did you mean all cells in that range or every other as in skipping every other column in some pattern?

 

[VoG]

Try this

Sub test()
Dim r As Long, j As Long
r = ActiveCell.Row
For j = 4 To 36 Step 2
    With Cells(r, j)
        .Borders(xlEdgeLeft).Weight = xlThin
        .Borders(xlEdgeRight).Weight = xlThin
    End With
Next j
End Sub

 

[Blunder1]

Perfect VoG, thank you