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?

--
Thanks for your help.
Karen53