Thanks for all your help.

One last thing. If I want to run the macro by changing a particular cell as well as by clicking the tab, how can I do that? I think it would be something like the following if C3 is the cell I want to edit, but this doesn't work.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As "C3")
Private Sub Worksheet_Activate()
Dim Ws As Worksheet
Dim RowCheck As Long

Set Ws = ActiveSheet

Application.ScreenUpdating = False
With Ws
For RowCheck = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(RowCheck, 1) = 0 Then
.Cells(RowCheck, 1).EntireRow.Hidden = True
Else
.Cells(RowCheck, 1).EntireRow.Hidden = False
End If
Next RowCheck
End With
Application.ScreenUpdating = True
End Sub


Thanks again,

Ger