macro to close files

[howard]

I have the following macro to close workbook containing Tb or Trial Balance

However, I won't close the workbook Trial Balance

It would be appreciated if someone could please assist in amending the code

 Sub Close_TB_Files()



Dim WBK As Workbook
For Each WBK In Workbooks
If WBK.Name Like "*.TB**.xlsx" Or LCase(WBK.Name) Like "*tb*" Or LCase(WBK.Name) Like "Trial*.*" Then WBK.Close SaveChanges:=True

Next WBK

End Sub

 

[MARK858]

Try

If WBK.Name Like "*.TB**.xlsx" Or LCase(WBK.Name) Like "*tb*" Or LCase(WBK.Name) Like "trial*" & ".xls*" Then WBK.Close SaveChanges:=True

 

[howard]

Thanks for the help, code works perfectly