I have been trying to piece together some script to remove vertical borders for a row if there is no data in the first column for that row. Following is the script I have so far:
Any help in resolving would be appreciated.'Remove Border for totals Dim rngToChange As Range Dim C As Range Set rngToChange = ActiveSheet.Range("A2:H" & LR) For Each C In rngToChange If IsEmpty(C) Then C.Borders(xlDiagonalDown).LineStyle = xlNone C.Borders(xlDiagonalUp).LineStyle = xlNone C.Borders(xlEdgeLeft).LineStyle = xlNone C.Borders(xlEdgeRight).LineStyle = xlNone Else End If Next
Thanks,
Met
Bookmarks