VBA Top Border For Every 4th Cell

[Captain_Conman]

Hello!

I would like to write a macro that puts a top border on every fourth cell in column D. Sheet name: "MISC" and no header.

Any Suggestions?

 

[Rick Rothstein]

Does this do what you want...

Sub test()
  Dim R As Long
  For R = 1 To Cells(Rows.Count, "D").End(xlUp).Row Step 4
    Cells(R, "D").Borders(xlEdgeTop).Weight = 3
  Next
End Sub

 

[Captain_Conman]

Does this do what you want...

Sub test()
  Dim R As Long
  For R = 1 To Cells(Rows.Count, "D").End(xlUp).Row Step 4
    Cells(R, "D").Borders(xlEdgeTop).Weight = 3
  Next
End Sub

Hi Rick! Thank you for your help. However, after running this code, it looks like the wrong cell is being formatted. The top of cells 5,9,13,17 etc were receiving the border. Instead, I need the top cells 4,8,12,16,20,24 etc to receive the border.