Thanks Chan. I get an error when I run the code though. I will keep playing
with it.
Ruan



"Chan" wrote in message
...
Try this:

Sub HideRows1()
Worksheets("Jul").Unprotect Password:="abcd"

' Hide Selected Rows on the Worksheet
For each c in ("B11:B119")
If c.value = "X" then
.EntireRow.Hidden = True
Else
.EntireRow.Hidden = False
End if
Next

Range("C11").Select
Worksheets("Aug").Protect Password:="abcd", Scenarios:=True

End Sub