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

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

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