Dim ss() As String
Dim i As Integer

Sub kio45()
ReDim ss(Worksheets.Count)
   i = 0
    For Each sheet_name In Worksheets
        ss(i) = sheet_name.Name
        i = i + 1
    Next
   i = 0
   Do
     MsgBox ss(i)
     i = i + 1
   Loop Until ss(i) = ""
End Sub