Sub HideRows()
Dim cell As Range
For Each cell In Range("J7:J1452")
If Not IsEmpty(cell) Then
If cell.Value = 0 Then
cell.EntireRow.Hidden = True
End If
End If
Next
End Sub
If UCase(ws.Name) <> "SHEET1" And UCase(ws.Name) <> "SHEET2" Then
If UCase(ws.Name) = "SHEET1" Or UCase(ws.Name) = "SHEET2" Then
Open in new window
Please note if statement in VB is case sensitive that's why i have converted your ws.name in upper case in VB...
Saurabh...