Dim m_sNameSheets As String
m_sNameSheets = ""
Dim m_aRray1(m_nItems) As String

m_aRray1 – массив содержит имена листов в книге

' Заполнение массива именами листов в активной  книге
For i2 =  1  To Sheets.Count  
    m_aRray1(i2) = Sheets(i2).Name
Next

m_sNameSheets = ""
For i2 =  1  To Sheets.Count
    m_sNameSheets = m_sNameSheets + m_aRray1(i2) + vbNewLine 
Next
MsgBox m_sNameSheets ‘ выводит  25  строк

Хочу пронумеровать элементы в массиве при их выводе, например,
 6 .Region
скорректировав строку:
m_sNameSheets = Str(i2) & ". " & m_aRray1(i2) + vbNewLine ‘ выводит
вместо  25  пронумерованных строк одну строку вида  “ 24 .Шум”