Sheet9.Activate Activates Sheet8 - Why?

[ransomedbyfire]

When I run the following code, for some reason, Excel activates Sheet9 when I tell it to activate Sheet8. I have looked at the sheet properties, and everything seems fine - just not in execution. How can I fix this without having to use a workaround?

Here is a simplified snippet of my code:

Dim ws as Worksheet
For Each ws in Worksheets

if ws.codename<>"Sheet8" Then
ws.Activate
cname=ws.codename
End If

Next ws

When I run this code, the sheet that is labeled "Sheet8" in the Project window slips through the IF statement uncaught and cname is set to equal "Sheet9".

I have used this code successfully with sheets 1-7; so, it should work here too. But it doesn't.

Can someone please help me with this?

 

[Michael M]

try

if ws.codename = "Sheet8" Then

 

[mikerickson]

I'm just guessing as to the purpose of this code, but if you want a worksheet activated, given its code name you could use.

Dim sheetsCodeName As String
sheetsCodeName = "Sheet2"

With ThisWorkbook
    .Sheets(.VBProject.VBComponents(sheetsCodeName).Properties("Index")).Activate
End With