sure

Sub testing()

    For x = 2 To 50
        Sheets(x).Name = x
    Next x

End Sub