Maco code doesn't work. Why?

  • Thread starter Thread starter Joe M.
  • Start date Start date
J

Joe M.

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.
 
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
 
Sorry about the typo!
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.
Click to expand...
 
Back
Top