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