Close multiple workbooks

[Martin_H]

Hi,

would it be possible to simplify this code to fewer lines?

The less, the better.

Thank you.

On Error Resume Next
Workbooks("01_jan.xlsm").Close savechanges:=True
Workbooks("02_feb.xlsxm").Close savechanges:=True
Workbooks("03_mar.xlsm").Close savechanges:=True
Workbooks("04_apr.xlsm").Close savechanges:=True
Workbooks("05_may.xlsm").Close savechanges:=True
Workbooks("06_jun.xlsm").Close savechanges:=True
Workbooks("07_jul.xlsm").Close savechanges:=True
Workbooks("08_aug.xlsm").Close savechanges:=True
Workbooks("09_sep.xlsm").Close savechanges:=True
Workbooks("10_okt.xlsm").Close savechanges:=True
Workbooks("11_nov.xlsm").Close savechanges:=True
Workbooks("12_dec.xlsm").Close savechanges:=True
On Error GoTo 0

 

[dmt32]

Hi,
try

Dim i As Integer
On Error Resume Next
    For i = 1 To 12
        Workbooks(Format(i, "00") & "_" & MonthName(i, True) & ".xlsm").Close savechanges:=True
    Next i
On Error GoTo 0

Dave

 

[Martin_H]

Works!

Thank you Dave.

 

[dmt32]

Works!

Thank you Dave.

most welcome

appreciate feedback

Dave