Need help from an Excel guru

[maggot]

Hi Blachance, I'm no help in Excel, but can tell you desperately need Alteryx. Ayx Designer will allow you to quickly/repeatably solve for these problems AND allow you to transform/load information from whatever other dataset you may have to join/union/compare with this data. Amongst other things.

Just a thought. Download a free trial: https://www.alteryx.com/designer-tri...l&utm_content=
Big discounts for students as well, IIRC

[Siress]

location = "C:\Users\Brian.Lachance\OneDrive - USTSA\Desktop\New folder"

There should be a

 \

at the end of the directory, or add it to the formuale. e.g. name = "\A1 " + Format(Now() + 1, "mmddyy")

'Opens Master Workbook
Workbooks.Open Filename:= _
"C:\Users\Brian.Lachance\OneDrive - USTSA\Desktop\New folder\A1 Checkpoint Form Master.xlsm"

Where are you running this macro? Is it in the "A1 Checkpoint Form Master", another workbook in the same directory, or some other workbook that may be at any directory? The CurDir() or ThisWorkbook.Path functions are useful for maintaining mobility of your files if all of the workbooks are in the same directory. i.e. you can move the 'New folder' to some other location or computer and everything can still work. As is, it's only going to one for the explicitly named directory.


Things look kind of weird after that... Guessing this was a recorded macro? It doesn't match your description:

I want the macro to open a file called "A1 checkpoint master", go to the tab called "A1", change the date in cell H1 to the current date, save the master sheet with the current date, save a copie as "A1 mm/dd/yy", "A1 mm/dd/yy +1" and "A1 mm/dd/yy +2"

I'm going to follow the description and assume based on the code given that all workbooks reside in the same directory: e.g. "C:\Users\Brian.Lachance\OneDrive - USTSA\Desktop\New folder" including the workbook where the macro is run. If I understood correctly, you want the workbook where this is run to be the one that gets saved as "A1 mmddyy" spanning today, tomorrow, and the day after. The code below will do that. If I misunderstood, I think you can use what's shown to craft the intended solution.

Sub BLachance75()
Workbooks("A1 Checkpoint Form Master.xlsm").Worksheets("A1").Range("H1").Value = Format(Now() + 1, "mm/dd/yy")
ThisWorkbook.SaveAs (ThisWorkbook.Path & "\A1 " & Format(Now(), "mmddyy") & ".xlsm")
ThisWorkbook.SaveAs (ThisWorkbook.Path & "\A1 " & Format(Now() + 1, "mmddyy") & ".xlsm")
ThisWorkbook.SaveAs (ThisWorkbook.Path & "\A1 " & Format(Now() + 2, "mmddyy") & ".xlsm")
End Sub