Hi,

Perhaps:


Sub clear_zero()
      
Dim i As Integer

For i = 1 To ActiveWorkbook.Worksheets.Count

With Sheets(i).Columns(2)

    .AutoFilter 1, "0"
    .ClearContents
    .ClearComments

End With

Next

End Sub
Regards