Copy History (recently opened) to Cells

[Gary''s Student]

If I pull-down File from the menu bar, I can select from a short list of
recently opened workbooks to open.

The list represents a kind of history of recent usage of Excel. How can I
copy this list to a column in the worksheet?

For example, this list might show:

C:\test\shell.xls
C:\Temp\todo.xls

I would like A1 to contain the text:
C:\test\shell.xls

A2 to contain the text:
C:\Temp\todo.xls

etc.

Thanks in advance for any suggestions

 

[Joel]

Sub GetRecentfiles()

For i = 1 To Application.RecentFiles.Count
MsgBox (Application.RecentFiles.Item(i).Name)

Next i
End Sub

 

[Gary''''s Student]

Thanks!
--
Gary''''s Student - gsnu200803

Sub GetRecentfiles()

For i = 1 To Application.RecentFiles.Count
MsgBox (Application.RecentFiles.Item(i).Name)

Next i
End Sub