This is the code that I'm using but it only works on one sheet.
Sub LAonly()
Const LetterToHide = "U"
On Error GoTo Whoops
ActiveSheet.Unprotect "1"
Rows.Hidden = False
With Columns("o")
.Replace LetterToHide, "#N/A", xlWhole
With .SpecialCells(xlCellTypeConstants, xlErrors)
.EntireRow.Hidden = True
.Value = LetterToHide
Sheets("RENAL").Select
ActiveSheet.Unprotect "1"
With Columns("n")
.Replace LetterToHide, "#N/A", xlWhole
With .SpecialCells(xlCellTypeConstants, xlErrors)
.EntireRow.Hidden = True
.Value = LetterToHide
End With
End With
End With
Whoops:
ActiveSheet.Protect "1"
Sheets("PRESUPUESTO 2013").Select
End With
End Sub