Arbeitsmappen auflisten

Wie kann man alle geöffneten Arbeitsmappen listen und Sie z.B.
ab Zelle C1 anzeigen ? 
Sub Datei_Liste()
   Dim WB As Workbook
   Zeile = 1
   For Each WB In Workbooks
      Cells(Zeile, 3) = WB.Name
      Zeile = Zeile + 1
   Next WB
End Sub