Help with vbYes

[Pookiemeister]

Sub isAnyWorkbookOpen()    
    Dim wb As Workbook
    Dim wbs As Workbooks
    Dim msg As String
    Dim answer As String
    
    Set wbs = Application.Workbooks
    
    msg = "The following worksbooks must be closed before continuing." & Chr(10) & "Do you want to save and close these workbooks?" & Chr(10) & Chr(10)
    
    For Each wb In wbs
        If wb.Name <> ThisWorkbook.Name Then msg = msg & wb.Name & Chr(10)
    Next wb
    
    MsgBox (msg), 52, "Workbooks Open"
        If answer = vbYes Then Call closeOtherWorkbooks
        
End Sub

When I Dim answer as String, I receive a Runtime error 13: Type Mismatch. Which I understand. However when I change the Dim answer as Boolean or Variant, the MsgBox will be displayed as expected but skips over

If answer = vbYes Then Call closeOtherWorkbooks

When I use the Watch window it states the value of Expression answer is Empty.
What am I doing wrong?

Thank You

 

[Pookiemeister]

Are you trying to check if any other workbooks, apart from the one the code is in, are open?

Yes.

What do you want to happen if other workbooks are open?

Run the following code:

If wb.Name <> ThisWorkbook.Name Then msg = msg & wb.Name & Chr(10)
ans = MsgBox(msg, 52, "Workbooks Open")

Thank You for your help.

 

[Norie]

Those are 2 quite separate lines of code, the first is within the loop and the second is after it.

Do you want to build up a list with the names of any workbooks that are open other than the one the code is in?