printing all workbooks names in one shot

[lezawang]

Hi
The code below is to print each workbook's name. If I have 5 then it will msgbox these 5 files names. I want to improve this code so it can print all the name in one shot (not 5 msgboxs or whatever the number of the files). Is that possible? Thank you so much.

Sub wb_names()
    'to find workbook name
    Dim x As Integer
    Dim y As Integer
    x = Workbooks.Count
    For y = 1 To x
        MsgBox Workbooks(y).Name
    Next y
End Sub

 

[shg]

Sub lezawang()
  Dim asName()      As String
  Dim i             As Long

  ReDim asName(1 To Workbooks.Count)
  For i = 1 To Workbooks.Count
    asName(i) = Workbooks(i).Name
  Next i
  
  MsgBox Join(asName, vbLf)
End Sub

 

[lezawang]

Thank you very much. The code is working perfect. I have 1 question please

Join(asName, vbLf)

Does that tell vba to join "each member" of the array with line feed? So I do not need to put that line of code in a loop. Thanks again

 

[shg]

Look at VBA Help for the Join function and post back if you still have questions.