Copy History (recently opened) to Cells
 

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
--
Gary''s Student - gsnu2007xx

Copy History (recently opened) to Cells
 

Sub GetRecentfiles()

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

Next i
End Sub


"Gary''s Student" wrote:

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
--
Gary''s Student - gsnu2007xx

Copy History (recently opened) to Cells
 

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


"Joel" wrote:

Sub GetRecentfiles()

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

Next i
End Sub


"Gary''s Student" wrote:

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
--
Gary''s Student - gsnu2007xx