VBA Open

[S P P]

Something is not working in this VBA.

What Could Be Wrong

>>> use code - tags <<<

Dim Wbx As String
Wbx = "SSP.xlsm"

     For Each Wb In Workbooks
     If Not (Wb Is Wbx) Then
     Wb.Close SaveChanges:=True
End If
Next

 

[Logit]

Check your spelling ?

Option Explicit

Sub sving()

    Dim wb As Workbook
    Dim Wbx As String
    Wbx = "SSP.xlsm"

    For Each wb In Workbooks
        If wb.Name <> Wbx Then
            wb.Close SaveChanges:=True
        End If
    Next wb

End Sub

 

[vletm]

You asked something about open, but ...
Your code misses any open commands.
Your code should have something about open to open something?
... or Your thread's title is something else than You're asking.

 

[S P P]

Logit

Thanks

It worked

This is exactly what I was trying with the VBA I posted

 

[Logit]

You are welcome.

 

[S P P]

vletm

At that moment, that's what I thought about the Topic regarding the Open