Hello,

I am trying to create a macro that will go into a different folder path for each workbook and then save all workbooks into the same folder. The folder pathways that the workbook will be in, will change every month, but just the date will change in the string. So far I have below and I know it is incorrect because I am missing all 9 workbook pathways and only have 1 listed. I tried listing them out and was getting an error. Any help is greatly appreciated. Thanks!

Sub aa_SAVE()

    Dim wbk As Workbook
    Dim paths As String
    Dim FileName As String
    Dim NewPath As String
    paths = "N:\Team-ASClientAcctgMIN\Team-Accounting\Property Archive\Slate Properties\Properties\GAR\Cudahy\Financial Reporting\2017\ERN001 - 08.17\Reporting\"
    FileName = "Cudahy Center 08.17.xlsm, Errol Plaza 08.17.xlsm, Wausau 08.17.xlsm, Merchant Crossing- Newnan 08.17.xlsx, Waterbury 08.17.xlsm, Wellington Park 08.17.xlsm, Forest Plaza 08.17.xlsm, City Center 08.17.xlsm, Douglas Commons 08.17.xlsx"
    Set wbk = Workbooks.Open(paths & FileName)
    NewPath = "C:\Users\rhoover\OneDrive\Properties\"
    ActiveWorkbook.SaveAs NewPath & FileName
    ActiveWorkbook.Close True
    wbk.Close True

End Sub