Hi,

Try this

Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If LCase(wks.Range("n1").Value) = "x" Then
wks.Visible = xlSheetHidden
End If
Next wks

Mike

"Joe M." wrote:

I am using Excel 2003. I have inserted the following code into a macro to
hide any sheets where cell N1="x". This is the only code in the macro. When I
run I get an error (below).

Dim wks as worksheet
for each wks in activesheet.worksheets
if lcase(wks.range("n1").value) = lcase("x") then
wks.visible = xlsheethidden
end if
next wks

ERROR: Object doesn't support this property or method (Error 438)

Can someone help?

Thanks,
Joe M.