Выпуск именования рабочих таблиц после диапазона ячеек

Question

Поэтому я пытаюсь использовать значения ячеек (текст) в ячейках O2: O29 для создания рабочих листов. Когда я запускаю макрос, он создает одну новую рабочую таблицу для каждого из цветов, но не называет их соответствующим образом. Моя цель - присвоить им соответствующие имена.

Вот код, который у меня есть на данный момент:

Sheets("specifiedsheet").Select
Range("A1").Select
Dim cell As Range

Dim color As Range
Set color = Sheets("specifiedsheet").Range("O2:O29")

For Each cell In color
    On Error Resume Next
        Sheets.Add.Name = cell.Value
Next cell

К вашему сведению, данные в столбце O - это список цветов.

Answer 1

Дайте этому попытку

Dim sourceSheet as Worksheet
Dim newSheet as Worksheet
Dim sourceRange as Range
Dim cell As Range

Set sourceSheet = Thisworkbook.Worksheets("specifiedsheet")
Set sourceRange = sourceSheet.Range("O2:O29")

For Each cell In sourceSheet.Cells
    Set newSheet = Thisworkbook.Sheets.Add
    newSheet.Name = cell.Value
Next cell

Дайте мне знать, если это работает