Close workbook whose name is different each day.

Sub test()
Dim openbook As Workbook
For Each openbook In Application.Workbooks
    If Not openbook.Name = "WORKBOOK B NAME HERE" Then openbook.Close False
Next openbook
End Sub