Изменение имени вкладки рабочего листа в зависимости от значения ячейки

Question

Я хочу изменить имена вкладок рабочего листа, основываясь на значении ячейки, которое меняется только на листе 1, остальные листы не меняются

ничего

Public Sub ChangeSheetNames()
    Dim ws As Worksheet

    'lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    'For i = 2 To lastRow
    On Error Resume Next
    For Each ws In Worksheets
    'ws.Tab = ws.Cells(i, 2)

       If ws.Range("A2").Value <> "" Then
          ws.Name = ws.Range("A2").Value
       End If

    Next ws
End Sub

меняется только на листе 1 Мне нужноизменить минимум 50 листов

Answer 1

Попробуйте этот макрос:

Public Sub ChangeSheetNames()
    Dim lLastRow As Long
    With Worksheets(1)
        lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To Worksheets.Count
            If .Cells(i, 1).Value <> "" Then Worksheets(i).Name = .Cells(i, 1).Value
        Next
    End With
End Sub