Sequentially number tabs

Maybe:

Sub khorner()
Dim i As Long
For i = 1 To 50
    Sheets(i).Name = i
Next i
End Sub

Your method works, too! This is great. However, is there a way to exclude a first summary tab and renumber the others that follow sequentially 1-50?