Close workbook whose name is different each day.

I have a macro that runs daily. It formats and then copies data from one workbook to another. The first workbook, call it A, needs to be closed after I'm done with it, but it's name is different every day. workbook B stays the same except that I'm adding the data from A to it. I've got everything else working just fine except closing A. I try closing A before switching to B, but then it doesn't copy the data. I tried going back to B and using just the first part of its name (since the first part stays the same then it has the date after) and using * to mark for the rest. This did not work either.

Anyone have any suggestions?

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

@Nori - The workbook I'm trying to close is a report that I open from my email.
@Leo - That won't work as I have several other workbooks open in the same instance that I don't want closed.

Is there no way to do with the others in the same instance. I don't know that the other users will always do that. And I always have them open, except for A which is new every day.

Yes, it always starts with Storage_Trending_

This is the macro that I use. I start the aSetup and it does the rest. I just added your code to it. It did not however close the workbook.

Sub DeleteRow()
'
' DeleteRow Macro
' Start with the data column and delete the entire row
'
    'This clears the selected cell
    ActiveCell.FormulaR1C1 = ""
    'this moves to the next column in the row
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    Call CopyPaste
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    Call CopyPaste
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    Call CopyPaste
    'This returns to the first cell that was selected
    ActiveCell.Offset(0, -3).Range("A1").Select
End Sub

Sub usedGB()
'
' usedGB Macro
' Calculates the used % and the daily difference and puts the date in the date column
'
    'This subtracts the free space from the capacity and tehn divides by the capacity to get the % used
    ActiveCell.FormulaR1C1 = "=(R2C-RC[-1])/R2C"
    Call CopyPaste
    'This goes to the Difference column
    ActiveCell.Offset(0, -2).Range("A1").Select
    'This subtracts the previous days value from todays value
    ActiveCell.FormulaR1C1 = "=RC[2]-R[-1]C[2]"
    Call CopyPaste
    Call SetFormat
End Sub

Sub ChangeOrder()
'
' ChangeOrder Macro
' switches the order of 2 rows
'
    ActiveCell.Range("A1:C1").Select
    Selection.Cut
    ActiveCell.Offset(0, 4).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, -4).Range("A1:C1").Select
    Selection.Cut
    ActiveCell.Offset(-1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 4).Range("A1:C1").Select
    Selection.Cut
    ActiveCell.Offset(1, -4).Range("A1").Select
    ActiveSheet.Paste
End Sub

Sub aSetup()
'
' Setup Macro
' deletes the extra space at the begining of the list, sets the formatting, changes the order of the 2 that are out of alpahbetical order,
'   copies the numbers from column B to row 2, and inserts the required number of spaces for copying to the Storage Trending workbook
    ActiveWindow.DisplayGridlines = True
    Range("A3").Select
    Selection.Copy
    Range("D10").Select
    ActiveSheet.Paste
    Selection.NumberFormat = "m/d/yyy"
    Range("A1").Select
    ActiveCell.Range("A1:F7").Select
    Selection.Delete shift:=xlUp
    ActiveCell.Columns("A:C").EntireColumn.Select
    Selection.Style = "Normal"
    Selection.Rows.AutoFit
    Selection.Columns.AutoFit
    ActiveCell.Offset(30, 0).Range("A1").Select
    Call ChangeOrder
    ActiveCell.Offset(5, 0).Range("A1").Select
    Call ChangeOrder
    Call CopyShift
    Call Insert2Spaces
    Call FinishSetup
    Call SetFormat
End Sub

Sub CopyShift()
'
' CopyShift Macro
' copies the contents of a column into a row
'
    ActiveCell.Offset(11, 2).Range("A1").Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=15
    ActiveCell.Offset(2, 3).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

Sub Insert2Spaces()
'
' Insert2Spaces Macro
' inserts to spaces between the numbers to match the format of the Storage Trending workbook
'
 For k = 0 To 47
    Selection.Insert shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.Insert shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(0, 2).Range("A1").Select
Next k
    ActiveCell.Offset(0, -147).Range("A1").Select
    ActiveCell.Range("A1:EQ1").Select
    Selection.Copy
End Sub

Sub CopyPaste()
'
' CopyPaste Macro
' copies the formula from the first cell to the others in the same row 3 cells apart for 48 times
' then goes back to the first cell that was copied
   For k = 0 To 47
    ActiveCell.Select
    Selection.Copy
    ActiveCell.Offset(0, 3).Range("A1").Select
    ActiveSheet.Paste
Next k
    ActiveCell.Offset(0, -144).Range("A1").Select
    Application.CutCopyMode = False
End Sub

Sub SetFormat()
'
' SetFormat Macro
' This selects all of the filled cells and does an autofit on them so set the formatting
'

    Dim l As Long
    Dim lRow As Long
    
    lRow = Sheets("Data").Range("A1").End(xlDown).Row
    
    Sheets("Info").Select
    Range("A1:H50").Select
    Selection.Columns.AutoFit
    Range("A1").Select
    Sheets("Data").Select
    Range("A1:ER200").Select
    Selection.Columns.AutoFit
    For l = lRow To 1000 Step 1
        If (Range("A" & l).Value) Like "*/20*" Then
            Range("A" & l).Select
        End If
    Next l
End Sub

Sub FinishSetup()
'
'This changes the active workbook and copies everything over to the Storage Trending workbook
'Then it processes the newly copied data and formats everything

    Dim l As Long
    Dim lRow As Long
    Dim wb As Workbook
    
    Selection.Copy
    Windows("Storage Trending").Activate
    Range("A1").Select
    lRow = Sheets("Data").Range("A1000").End(xlUp).Row

    For l = lRow To 5 Step -1
    Range("A" & l).Select
'   Checking for each line till it finds the first empty one
        If (Range("A" & l).Value) Like "*" Then
            If Range("A" & l + 1).Value Like "" Then
                Range("A" & l + 1).Select
                Selection.PasteSpecial (xlPasteValues)
                ActiveCell.Offset(0, 3).Range("A1").Select
                Call usedGB
            End If
        End If
    Next l
    Range("A1").Select
    For Each wb In Application.Workbooks
        If wb.Name Like "Storage_Trending_*" Then
            wb.Close savechanges:=True
            Exit For
        End If
    Next wb
End Sub

I don't refer to it. I open it from my email, which opens it in the same instance as the others. Then I am able to run the macros that I have on the other workbooks that are open. I run a setup macro that formats the data then changes the focus to the appropriate workbook to copy it to. I just wanted to close the first workbook as it is not needed once the data is copied over. I'll try your code out to see what happens.

Yeah, the name always starts with that, it's the name of the report. Then it has the days date after. There are no spaces the report uses '_' instead of spaces. I ran your code and added breakpoints to watch what it does and it never goes into the 'IF' statement as though none of the workbooks have a name starting with Storage_Trending_

The name is in all caps for the workbook that I'm trying to close does that matter? It does show up in the window as the last workbook that is looked at.

I did that and I see it run through all the open workbooks that I have. I saw that the workbook I'm trying to close is in all caps so I changed the code to reflect that and now it tries to close the workbook, but wants to save it first. How do I prevent it from trying to save?

Awesome, that works! Thanks for all the help!

if you are opening it from an email attachment it won't have a save location right? so how about:

Sub test()
Dim openbook As Workbook
For Each openbook In Application.Workbooks
    If openbook.Path = "" Then openbook.Close False
Next openbook
End Sub