Borders/Inserting Line

  • Thread starter Thread starter Guest
  • Start date Start date
Sub ABCD()
k = 5
For m = 1 To 20
With Worksheets("Change")
With .Cells(k + 2, m).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End With
Next
End Sub

for the blank line, change
k = k + 3
to
k = k + 4
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA set thick borders around non empty cells in range 0
Insert Border 2
Border formatting row of cells 22
Insert xlBottom border to group data 1
Counting Bordered Cells 5
Insert rows without copying borders and shading 6
Do I need these lines? 5
For net borders 5

Back
Top