Excel VBA ускорить код, чтобы скрыть строки / удалить цвет

Question

Я использую следующий код для удаления цвета и скрытия строк, которые включают несколько критериев, перед экспортом листов в PDF. Есть ли способ ускорить этот процесс, так как процесс занимает довольно много времени. Особенно в ситуациях, когда у меня есть несколько листов в одной рабочей тетради, и чтобы применить это на каждом листе = "печатная страница".

Sub Color()
    Dim myRange As Range
    Dim cell As Range
    Application.ScreenUpdating = False
    Set myRange = ThisWorkbook.Sheets("Print version").Range("Print_Area")
        For Each cell In myRange
        myRange.Interior.ColorIndex = 0
        If cell.HasFormula = True And cell.Value = "" And cell.EntireRow.Hidden = False Then Rows(cell.Row).EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub