◆◆MS-Excel2000スキルアップ講座/VBA編◆◆

すでに開かれているブックのシート名を書き出す

すでに開かれているブックのシート名を書き出すのは以下のコ
ードで出来ると思います。

Sub HiraiteiruBookNoSheetName()
Dim WB, WS
Dim i As Long
For Each WB In Workbooks
   If WB.Name <> ThisWorkbook.Name Then
      For Each WS In WB.Sheets
         i = i + 1
         ThisWorkbook.Worksheets("Sheet1").Cells(i, 1).Value = WS.Name
      Next WS
   End If
Next WB
End Sub

余談ですが、同一フォルダ内にあるすべてのブックをオープン
にするには以下のコードで出来ると思います。
Sub myOpen()
Dim myPath As String, myFile As String
myPath = ThisWorkbook.Path
myFile = Dir(myPath & "\")
Do Until myFile = ""
   If myFile <> ThisWorkbook.Name Then
      Workbooks.Open Filename:=myPath & "\" & myFile
   End If
   myFile = Dir
Loop
End Sub