Load all Worksheet Names to an Array

Sub LoadSheetNamesToArray()

Dim wb As Workbook
Dim ws As Worksheet
Dim wsn() As String
Dim n As Integer

Set wb = ThisWorkbook
ReDim wsn(wb.Sheets.Count - 1)
n = -1
For Each ws In wb.Sheets
    n = n + 1
    wsn(n) = ws.Name
Next

End Sub