Satır gizleme çok yavaş çalışıyor

[sadece_erhan]

c2 hücresi boş olan satırları gizleyip göstermek için aşağıdaki kodları kullanıyorum ama çok yavaş çalışıyor öyleki bazen "yanıt vermiyor" uyarısı alıyorum, 5 dk falan bekleyince komut tamamlanıyor. bu süreyi daha fazla kısaltamam mı?

Sub Düğme12_Tıklat()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    Cells.EntireRow.Hidden = False
    
    For X = 1 To Range("c8000").End(3).Row
        If Cells(X, "c") = "" Then Rows(X).Hidden = True
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "Boş satırlar  Gizlendi", vbInformation
End Sub
Sub Düğme13_Tıklat()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    Cells.EntireRow.Hidden = False
    
    For X = 1 To Range("c8000").End(3).Row
        If Cells(X, "c") = "" Then Rows(X).Hidden = False
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "Bütün Satırlar Görüntülendi", vbInformation
End Sub