Excel VBA Macro: How to name Worksheets

You can have several worksheets in one Excel workbook. Default names of worksheets are Sheet 1, Sheet 2, ... You can change names manually by double clicking the name of the sheet, but you can also automatise this.

In the following demonstration video I will implement a simple VBA macro that names all worksheets in Excel workbook according to the content of the each worksheet's cell A1. You can go through all worksheet objects by using For Each -loop:


Sub namesheets()
    Dim s As Worksheet
    For Each s In Worksheets
        s.Name = s.Cells(1, 1).Value
    Next
End Sub