Excel Sayfalarında Sıfır Değerlerinin yerine boşluk gözükmesini istiyorsanız aşağıdaki kodlardan birini kullanabilirsiniz.

Kod: Tümünü seç

Option Explicit
Sub Auto_Open()
    Dim sht As Worksheet
    For Each sht In Worksheets
    sht.Activate
    ActiveWindow.DisplayZeros = False
    Next sht
End Sub

Kod: Tümünü seç

Sub Auto_Close()
    Dim sht As Worksheet
    For Each sht In Worksheets
    sht.Activate
    ActiveWindow.DisplayZeros = True
    Next sht
End Sub

Kod: Tümünü seç

Sub BaskaBirYöntem()
  Dim byt As Byte
  For byt = 1 To Worksheets.Count
    Worksheets(byt).Activate
    ActiveWindow.DisplayZeros = False
  Next byt
End Sub