Makro Tüm Sayfalarda Değişiklik Yapsın

[bayhekim81]

Elimde Boş Satırları Silen Bir Makro Kodu Var. Ama kodu çalıştırınca sadece aktif sayfada ki boş satırları siliyor. Ben tüm sayfalardaki boş satırları silmesini istiyorum. Tüm sayfalardaki boş satırları nasıl silerim.

Sub bossatirsil()
For a = 1 To Sheets.Count
sat = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Row
sut = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Column
For b = sat To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Rows(b)) = 0 Then Sheets(a).Rows(b).Delete
Next
For c = sut To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Columns(c)) = 0 Then Sheets(a).Columns(c).Delete
Next
Next
End Sub

 

[bayhekim81]

Cevap gelmeyince kendim araştırdım uzun uzun. Kendi kendime cevap veriyorum. Bir kodun sadece aktif sayfada değilde, tüm sayfalarda çalışsın isteniyor ise aşağıda yazdığım kodun arasına kendi kodunuzu koyabilirsiniz.

Sub WorksheetLoop2()
Dim Current As Worksheet
For Each Current In Worksheets

'Kendi kodunuzu buraya girin.

Next
End Sub