makro hızlandırma ve buton ekleme

[kokotuna]

arkadaşlar.. elimde bir makro var bu makro çok yavaş çalışıyor bunu hızlandırmak ve bu makro için buton ekleme şansımız varsa yardımcı olabilirmisiniz?....
makro şu;

Sub Gizlesin()
  For Each t In Range("A1:A600").Cells
    If t.Value = "" Then 'boş hücreleri gizler
    t.EntireRow.Hidden = True
  End If
  Next t
End Sub

Sub Gostersin()
  For Each t In Range("A1:A600").Cells
    If t.Value = "" Then 'boş hücreleri gösterir
    t.EntireRow.Hidden = False
  End If
  Next t
End Sub

 

[Excelmy]

Sayın kokotuna

Aşağıdaki kodlar ile uygulama yapınız.

Sub Gizlesin()
Range("A1:A600").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Sub Gostersin()
Range("A1:A600").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
End Sub

 

[kokotuna]

sayın kuman verdiğiniz kod sadece satırları siliyor... Satır gizleme yapmıyor...

 

[Excelmy]

Dosyanızı eklermisiniz.
Örnek bir dosyada olabilir.