Question

Is there any way to batch rename sheets in VBA:

Something like:

sheets(array(1, 2, 3)).name = array("hep", "hey", "heppa!")

naming sheets 1, 2, 3 as “hep”, “hey” and “heppa!”

Answer 1

• Clearly it doesn’t work directly
• And some experimentation with SelectedSheets didn’t lead anywere

This is as close as I could get it, someone else may find a method to skip a loop

[Updated with the standard way I would do this below including error handling – I hadn’t actually tried setting a collection of sheets like this before]

Normal Code

Sub Normal()
    Dim strShtOld()
    Dim strShtNew()
    Dim sht As Worksheet
    Dim lngSht As Long
    strShtNew = Array("hep", "hey", "heppa!")
    strShtOld = Array("Sheet1", "Sheeta2", "Sheet3")
    On Error Resume Next
    For lngSht = LBound(strShtOld) To UBound(strShtOld)
        Set ws = Nothing
        Set ws = Sheets(strShtOld(lngSht))
        If Not ws Is Nothing Then ws.Name = strShtNew(lngSht)
    Next lngSht
End Sub

Why the batch rename, curiousity or do do you have such a large amount of renaming to do that you are concerned with code runtime?

Array Effort

    Sub ArrayEx()
    Dim varShts
    Dim varSht
    Dim strArray()
    strArray = Array("hep", "hey", "heppa!")
    Set varShts = Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
    For varSht = 1 To varShts.Count
        varShts(varSht).Name = strArray(varSht - 1)
    Next
    End Sub