Adding Letters to Existing Tab names VBA

[dstrickland91]

I make a workbook close to everyday with 26 sheets inside of it. Each sheet is named with a number. Im trying to find a piece of code that will insert a letter in backwards alphabetical order in front of each sheet name. For example my tab names are:

45
54
78
65
13
35
75
14
88

After the code runs, id like this to be the result.

Z45
Y54
X78
W65
V13
U35
T75
S14
R88

The numbers are different everyday so the code has to only insert the letter into the tabname. I used kutools addin and it was doing the trick, but A: it was slightly buggy, B: I didnt want to pay the software cost for that one feature. Id much rather have the piece of code that I can add in to work with my other modules.

Is this possible?

 

[JoeMo]

Try this on a copy of your workbook.

Sub AddTabLetter()
Dim sht As Worksheet, ct As Long
ct = 90
Application.ScreenUpdating = False
For Each sht In ActiveWorkbook.Sheets
    If sht.Name Like "#*" Then
        sht.Name = Chr(ct) & sht.Name
        ct = ct - 1
        If ct < 65 Then Exit Sub
    End If
Next sht
Application.ScreenUpdating = True
End Sub

 

[Joe4]

This block of code should do that:

    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Name = Chr(91 - i) & Sheets(i).Name
    Next i

Edit: Didn't see JoeMo's reply. He has got a few extra checks built in to his.

 

[dstrickland91]

Wow, thanks for the fast response. This works perfect. I there anyway this can be edited on the odd occasion I dont have 26 sheets? So say if I have only 25 it would start by inserting y first instead of z? From time to time The file may have an odd number of sheets(never exceeding 26). Basically have it start with A on the last sheet then move forward in that order?

Did I explain this right to where it makes sense?

 

[JoeMo]

Wow, thanks for the fast response. This works perfect. I there anyway this can be edited on the odd occasion I dont have 26 sheets? So say if I have only 25 it would start by inserting y first instead of z? From time to time The file may have an odd number of sheets(never exceeding 26). Basically have it start with A on the last sheet then move forward in that order?

Did I explain this right to where it makes sense?

Which fast response you would like modified are you referring to?

 

[dstrickland91]

Yours if possible. Joe4's does the trick as well. But as he stated yours has a few more checks in it.

 

[Joe4]

Here is mine. with update:

    Dim i As Long
    Dim Counter As Long
    For i = Sheets.Count To 1 Step -1
        Counter = Counter + 1
        Sheets(i).Name = Chr(64 + Counter) & Sheets(i).Name
    Next i

 

[dstrickland91]

This is spot on. I truly thank both you gentlemen for everything.