Sub Test()
Dim wbk As Excel.Workbook

For Each wbk In Excel.Workbooks
MsgBox wbk.Name
Next wbk

End Sub

The only note with this is that if the user has multiple instances of Excel
oen then it will only look at the active instance.
--
HTH...

Jim Thomlinson


"Xav" wrote:

I would like to create a routhine from access that get the Name of all
workbook open in my Windows session.