K
Karen53
Hi,
I am trying to clear any cells having borders within a range of their top
and bottom borders. I have the following code:
Sub TroubleTktsClear()
With shtTroubleTickets.Range("B5:B6000")
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlLineStyleNone
End With
With shtTroubleTickets.Range("A4:B6000")
.ClearContents
End With
End Sub
The contents are clearing but the borders are not clearing. As you can see,
I have tried it with xlNone and xlLineStyleNone and neither is working. I
have checked enableevents is true as is screenupdating.
Have I missed something?
I am trying to clear any cells having borders within a range of their top
and bottom borders. I have the following code:
Sub TroubleTktsClear()
With shtTroubleTickets.Range("B5:B6000")
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlLineStyleNone
End With
With shtTroubleTickets.Range("A4:B6000")
.ClearContents
End With
End Sub
The contents are clearing but the borders are not clearing. As you can see,
I have tried it with xlNone and xlLineStyleNone and neither is working. I
have checked enableevents is true as is screenupdating.
Have I missed something?