Maybe:

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