Создать новые листы по кол-ву элементов в массиве - VBA

Формулировка задачи:

Нужно добавить в книгу листы, по кол-ву элементов в массиве . И дать названия листу, соответвующее элементу этого массива. Немного не пойму как добавить листы..

Sub Макрос()
 
Dim myRange As Range, myCell As Range, myCollection As New Collection, _
myElement As Variant, i As Long
Set myRange = Range("V4:V186")
On Error Resume Next
For Each myCell In myRange
myCollection.Add CStr(myCell.Value), CStr(myCell.Value)
Next myCell
On Error GoTo 0
 
For Each myElement In myCollection
 
 myElement = Columns(1).Rows(myCollection.Count).Value
    If Not myElement = "" Then
        Sheets.Add.Name = myElement
    End If
 
Next myElement
 
End Sub

Решение задачи: «Создать новые листы по кол-ву элементов в массиве»

textual
                            Листинг программы 
                        

                            Option Explicit
 
 
Sub NewBook()
    'Создание книги с одним листом из другой книги
    With Workbooks.Add
        .Sheets(1).Name = "Мой особенный лист"
        .Sheets(1).Cells(1, 1) = "Hello !"
        .SaveAs ThisWorkbook.Path & "\Моя новая книга с одним листом" & ".xls"
        .Close
    End With
End Sub
                        