Cheers Robert :-)
--
Thank you
Annie


"Robert Crandal" wrote:

Hi Annie,

When the error message box occurs, try pressing the
"Debug" button and VBA will highlight exactly where
the error is occurring. The error is probably occurring
at the line that says:

Case Sheet33, Sheet25, Sheet28, Sheet27

Try placing double quotes around each sheet name
as follows:

Case "Sheet33", "Sheet25", "Sheet28", "Sheet27"

Hope that helps!

Robert



"Annie Whitley" wrote in message
...
Hi everyone,

I'm replacing all sheet tab names with sheet codenames in my project.

I'm getting Runtime error 438. Object doesn't support this property or
method.

I'm guessing it's this part of the code. ???

Select Case sht.CodeName
Case Sheet33, Sheet25, Sheet28, Sheet27
sht.Visible = xlVeryHidden
Case Else
sht.Visible = True
End Select

Hoping that someone can help :-)

--
Thank you
Annie

.