Hi,
Perhaps:
Regards![]()
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
Hi,
Perhaps:
Regards![]()
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks