10/05/29 21:39:27
>>64
そりゃ、ブックを何も指定してないから・・・
サンプル
Sub MCR_FindSheetName()
Dim tempSheet As Worksheet
Dim r As Range
Set r = ActiveSheet.Range("A4")
Workbooks.Open (Range("a2").Value)
For Each tempSheet In Worksheets
With r
.Value = tempSheet.Name
Set r = .Offset(1)
End With
Next
End Sub