Not tested, but maybe something like this
Option Explicit
'Sub OpenUpFiles_5()
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\025 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\050 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\056 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\130 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\200 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\250 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\350 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\360 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\400 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\450 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\500 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Expenses\600 FY 2024 Expenses-SSE-Budget.xlsx"), UpdateLinks:=0
'Workbooks.Open ("Z:\FY24 Budget\SSE Revenues\050 FY 2024 Revenues-SSE-Budget.xlsx"), UpdateLinks:=0 <<<<<<<<< Dup
'Workbooks.Open ("Z:\FY24 Budget\SSE Revenues\130 FY 2024 Revenues-SSE-Budget.xlsx"), UpdateLinks:=0 <<<<<<<<< Dup
'Workbooks.Open ("Z:\FY24 Budget\SSE Revenues\200 FY 2024 Revenues-SSE-Budget.xlsx"), UpdateLinks:=0 <<<<<<<<< Dup
'End Sub
Sub CloseAndSaveOpenWorkbooks_26()
Dim aryWorkbooks As Variant, v As Variant
Dim Wkb As Workbook
Dim sPath As String, sName As String
aryWorkbooks = Array("025", "050", "056", "130", "200", "250", "350", "360", "400", "450", "500", "600")
Application.ScreenUpdating = False
'Loop through the workbooks collection
For Each v In aryWorkbooks
sPath = "Z:\FY24 Budget\SSE Revenues\" & v & " FY 2024 Revenues-SSE-Budget.xlsx"
sName = v & " FY 2024 Revenues-SSE-Budget.xlsx"
Debug.Print sPath, sName
On Error GoTo NextWorkbook
Set Wkb = Workbooks(sName)
On Error GoTo 0
If Wkb.ReadOnly Then
'if the book is read-only don't save but close
Wkb.Close
Else
Wkb.Save
'We save this workbook, but we don't close it _
because we will quit Excel at the end, _
Closing here leaves the app running, but no books
If Not Wkb Is ThisWorkbook Then Wkb.Close
End If
NextWorkbook:
Next
Application.ScreenUpdating = True
'Quit Excel
' application.Quit ' <<<<<<<<<<<<<<< commented out
End Sub