naming/renaming sheets - vba

[lezawang]

Hi
I wrote a macro that suppose to count how many sheets and then rename them to hello1, hello2, hello3 etc. I ran the code and it did work for the first time. for the next time after I added a new sheet (manually) when I ran the code I got an error message saying the name is already taken. How can I fix that? Thank you so much

Sub renamesheets()
    Dim x As Integer
    Dim y As Integer
    x = Worksheets.Count
    For y = 1 To x
    Worksheets(y).Name = "hello" & y
    Next
End Sub

 

[Norie]

I think you might need to figure out how many sheets are already named hellox or rename them in reverse order.

Here's code for the latter.

Sub renamesheets()
    Dim x As Integer
    Dim y As Integer
    x = Worksheets.Count
    For y = x To 1 Step -1
    Worksheets(y).Name = "hello" & y
    Next
End Sub

 

[My Aswer Is This]

Try this:

Sub Rename_Sheets()
'Modified 12/5/2018 2:58:43 PM  EST
Application.ScreenUpdating = False
Dim i As Long
For i = 1 To Sheets.Count
    Sheets(i).Name = "Hello " & Sheets(i).Index
Next
Application.ScreenUpdating = True
End Sub