Need Help: Changing Sheet Index Property in VBA code

[SamT]

Sheets("Sales").CodeName = "Sheet2"
Sheets("Sales").Name = "Sheet2"

NewIndex = 3
Sheets("Sheet2").Move After:=Sheets(NewIndex)