Hi MarvinP, and everyone,
Thanks for the example. I have adapted it to produce a list of open workbooks:
![]()
Sub ListOpenWorkbooks() Dim i As Long, wbname As String wbname = "" For i = Workbooks.Count To 1 Step -1 wbname = wbname & " " & Workbooks(i).Name Next MsgBox (wbname) End Sub
The next bit is how do I turn this into an option list, for a user to select one of?
Thanks!
ssu95bm
Bookmarks