Создать массив с названиями листов - VBA

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

Есть книга, где листы создаются и удаляются макросами. Задался целью создать массив, в котором будут содержаться названия всех листов. Хочу вывести этот массив на ListBox Написано так:

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Private SheetsDat(1 To Sheets.Countunt) As New SheetsClass 'ругается на Sheets.Countunt
Dim i As Integer, y As Integer
Private Sub UserForm_Initialize()
For y = 1 To Sheets.Count
Set SheetsDat(y).SHT = Worksheets(y).Name
Next
For i = 1 To Sheets.Count
ListBox.AddItem SHT(i)
Next

В Class Modules что написать, чтобы он этот массив сохранял? Справку перерыл не понимаю(

                    Листинг программы
                
Public WithEvents SHT As EventClass

Ругается Не знаю, что писать после As, чтобы он сохранил список названий листов. Помогите!

Решение задачи: «Создать массив с названиями листов»

textual
                            Листинг программы 
                        
Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).name
Next
END SUB