VBA code to remove vertical black boarders

[bootj1234]

I would appreciate assistance with VBA code that would eliminate the vertical black boarders that I show outlined in red in the following image.

I am trying to write code that would use the words in column A, “ADD”, “REMOVE”, “KEEP – Paid Advertisers” as the text that would indicate the starting point for the rows that needed to have the vertical black boarders removed.

Thanks for the assistance.

-John

[/IMG]

 

[Rick Rothstein]

I think this macro may do what you want...

[table="width: 500"]
[tr]
	[td]Sub RemoveVerticalBorders()
  Dim R As Long, CellVal As String
  For R = 12 To Cells(Rows.Count, "A").End(xlUp).Row
    CellVal = Cells(R, "A").Value
    If CellVal = "ADD" Or CellVal = "REMOVE" Or CellVal = "KEEP - Paid Advertisers" Then
      Intersect(Rows(R), Range("A:K")).Borders(xlInsideVertical).LineStyle = xlLineStyleNone
      Intersect(Rows(R), Range("L:Q")).Borders(xlInsideVertical).LineStyle = xlLineStyleNone
    End If
  Next
End Sub[/td]
[/tr]
[/table]

 

[bootj1234]

Rick,

Thanks for the prompt reply and code!

I never would have figured this out. Your solution is working great and will save me a lot of time in the future.

Best regards,

-John