オープンしている全ブックのシート名書き出し

'オープンしている全ブックの全シート名をセルに書き出す。
'99-01-01というシート名は、99/01/01となるので、強制的に
'文字列として書き出している。
Sub name_write()

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim seru As String

ThisWorkbook.Sheets("sheet1").Activate

seru = Range("c1").Value
Range("a5").CurrentRegion.ClearContents
m = 4
i = Workbooks.Count
For j = 1 To i
k = Workbooks(j).Worksheets.Count
For l = 1 To k
Range("a" & m + l) = "'" & Format(Workbooks(j).Name, "@")
Range("b" & m + l) = "'" & Format(Workbooks(j).Worksheets(l).Name, "@")
Range("c" & m + l) = "'" & Workbooks(j).Worksheets(l).Range(seru).Text
Next
m = m + l - 1
Next

End Sub