Excel - 删除特定边框的更有效方法

Question

如何才能使下面的代码更有效率，大约需要30秒才能完成

代码将清除选择中具有白色背景和＆amp;的所有单元格。然后清除选择内的所有对角线边框。

只有带有白色背景代码的透明单元格才能立即完成，但只要我添加了删除边框代码，它就会变慢。

Sub ADULTClearOnly()
Set sh2 = ThisWorkbook.Worksheets("ADULT Sign On Sheet")

sh2.Select
Cells.Range("B1:F756").Select
    For Each Cell In Selection
    If Cell.Interior.Color = Excel.XlRgbColor.rgbWhite Then
    Cell.Value = ""
    End If
    Next
    Cells.Range("G1:AO757").Select
    For Each Cell In Selection
    If Cell.Borders(xlDiagonalUp).LineStyle = xlDiagonalUp Then
    Cell.Borders(xlDiagonalUp).LineStyle = xlNone
    End If
    Next

    End Sub