Создать массив с названиями листов - 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
                        