if the sheets are already created something like this should work

you can change the 1 to 8 to anything you want....

Sub testing()

    For x = 1 To 8
        Sheets(x).Name = x
    Next x

End Sub