Macro to close specific Files Except the Active Workbook

[howard]

I have a macro to close all files containing "Sales Incentives" in the name of the workbook eg BR1 Sales Incentives (Pin).xlsm, Southern Sales incentives(Pin).xlsm etc except for the active workbook

However, these files are being closed

 Sub Close_Incentive_Workbooks()
 
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        If wb.Name Like "*Sales Incentives.xlsm*" Then
           If Not (wb Is ActiveWorkbook) Then wb.Close SaveChanges:=True
        
                   End If
    Next wb
    
End Sub

It would be appreciated if someone could kindly amend my code

 

[rlv01]

Maybe something like this (not tested)

Sub Close_Incentive_Workbooks()
    
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        If wb.Name Like "*Sales Incentives.xlsm*" Then
            If wb.Name <> ActiveWorkbook.Name Then
                wb.Close SaveChanges:=True
            End If
        End If
    Next wb
    
End Sub

 

[dmt32]

Hi,
see if this update to your code helps

Sub Close_Incentive_Workbooks()
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        If Not (wb Is ActiveWorkbook) Then
            If LCase(wb.Name) Like "*sales incentives*" Then wb.Close True
        End If
    Next wb
End Sub

Dave

 

[howard]

Thanks for the help

I amended this code

 If wb.Name Like "*Sales Incentives.xlsm*" Then

to

If wb.Name Like "*Sales Incentives*.*.xlsm*" Then

 

[howard]

Thanks for your Code Dave, which works perfectly

 

[dmt32]

welcome - glad we were able to help

Dave