Tüm Boş Çalışma Sayfalarını Silme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub deleteBlankWorksheets()
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
Ws.Delete
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End SubAçıklama
Bu kodu çalıştırın ve etkin çalışma kitabındaki tüm çalışma sayfalarını kontrol edecek ve bir çalışma sayfası boşsa silecektir.Faydalanılması temennisiyle