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