Excel VBA renames the wrong sheet - vba

Question

I have an excel macro-enabled workbook that has 5 sheets. One of these sheets is named "NC" and one is named "SC". I have part of the code which adds dates to these sheets' names.
Sheets("NC").Name = "NC" & Replace(Date, "/", "-")
Sheets("SC").Name = "SC" & Replace(Date, "/", "-")
Then later on if the reset button is clicked, I made a code to switch them back to previous "NC" and "SC" names but this is where I get the problem.
Sheets(2).Name = "NC"
Sheets(3).Name = "SC"
Sheets(2).Name = "NC" works fine
Sheets(3).Name = "SC" however, renames Sheet(4) instead
I thought these sheet codes or sheet numbers don't change no matter how you rearrange or reorder your sheet tabs. I don't understand why it accurately renamed Sheets(2) but not Sheets(3). Look at my project explorer below, it renames Sheets(4) instead from "NCToday" to "SC". Sheets(3) is showing "SC" in the picture but because this was manually reset but you can see the arrangement, the code Sheets(3).Name = "SC" SHOULD NOT have renamed Sheets(4) from "NCToday" to "SC".

Answer 1

Sheet(3) does not necessarily mean sheet3
Example:
If I type into the immediate window, ?worksheets(1).name, I get this result:
Sheet2
note that the system looks at the sheet order on the excel spreadsheet (Sheet2,Sheet1, Sheet3), not the order in the VBA Project (Sheet1,Sheet2,Sheet3)
To rename the sheets back, you may want to reverse the method you used to rename them initially:
Sheets("SC" & Replace(Date, "/", "-")).Name = "SC"

Answer 2

There are many ways to refer to a worksheet.
Using
Sheets(number).Name
'this will print all the names in the Sheets(i) order
for i = 1 to Sheets.count
debug.pring sheets(i).name & " at index " & i
next i
renames the sheet at index number in the workbook from left to right.
Using
Sheet2.name = "NC"
will rename the VBA object Sheet2 shown in the explorer.
I suspect you want to do:
Sheet2.Name = "NC"
Sheet3.Name = "SC"

Answer 3

You could potentially use the Like option to compare the sheet names before renaming ?
Dim s as Worksheet
For each s in Worksheets
if s.Name like "NC*" and not s.Name = "NCToday" then
s.Name = "NC"
end if
next
That could solve your page-shuffle without having to resort to "Do Not Re-Shuffle comments" ?
Comments like that are prone to misinterpretation and will likely have your code run into troubles and errors at some stage.
Better to try and mae it foolproof !
Goodluck !
Cheers !