Hiding selected Row
Thanks Tom. It works great.
"Tom Ogilvy" wrote in message
...
If the cells will either be blank or contain an X then
Sub HideRows1()
Worksheets("Jul").Unprotect Password:="abcd"
' Hide Selected Rows on the Worksheet
With Range("B11:B119")
.EntireRow.Hidden = False
On Error Resume Next
.SpecialCells(xlConstants,xlTextValues).EntireRow. Hidden = True
On Error goto 0
End With
Range("C11").Select
Worksheets("Aug").Protect Password:="abcd", Scenarios:=True
End Sub
--
Regards,
Tom Ogilvy
"Ruan" wrote in message
...
Hello,
I would like to hide an entire row, only if the User selects a "X" in
Column
B.
Below is the code I used to hide rows that had blank values in Column B.
How
would I modify this code to look for a "X" value?
Sub HideRows1()
Worksheets("Jul").Unprotect Password:="abcd"
' Hide Selected Rows on the Worksheet
With Range("B11:B119")
.EntireRow.Hidden = False
.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With
Range("C11").Select
Worksheets("Aug").Protect Password:="abcd", Scenarios:=True
End Sub
Thanks
Ruan
|