how to list all open workbooks within a message box except current workbook

[Pookiemeister]

As the title states, is possible to "list" all open workbooks but not include the current workbook.
After searching the web this is closest the following code is pretty close to what I am looking for, except it list each individual open workbook in a msgbox one at time. Which makes sense since the msgbox is within a For Loop but unfortunately it also includes the current workbook as well.
Thank you

Sub isAnyWorkbookOpen()
        
    Dim wb As Workbook
    Dim wbs As Workbooks
    
    Set wbs = Application.Workbooks
    
    For Each wb In wbs
        MsgBox wb.Name 
    Next wb
End Sub

 

[dmt32]

Hi,
try this update to your code

Sub isAnyWorkbookOpen()
        
    Dim wb As Workbook
    Dim wbs As Workbooks
    Dim msg As String
    
    Set wbs = Application.Workbooks
    
    For Each wb In wbs
        If wb.Name <> ThisWorkbook.Name Then msg = msg & wb.Name & Chr(10)
    Next wb
    
    MsgBox IIf(Len(msg) > 0, msg, "No workbooks Open"), 48, "Workbooks Open"
End Sub

Dave

 

[Pookiemeister]

Thank you that worked.