deleting all sheets except the first one

[lastnn30]

Hi
the code below does not work because when starts deleting sheets, the physical locations for other sheets would be changed so the loop wont work anymore. I know I need to modify the code a bit to make it work but could not figure that out. I thought of changing the For statement to this

For x  Sheets.Count to 2

But still did not work for me. Thank you

Sub deletemy()
    Dim x As Integer
    For x = 2 To Sheets.Count
        Worksheets(x).Delete
    Next x
End Sub