I really need help in creating a macros. I have a master workbook<--huge file. Project 1 workbook is where the user may pick selection using check box application. Depending on what selection the user chooses in Project 1 workbook, it grabs all picturelookups, formulas, calculations from the master workbook. When I rename the Project 1 workbook to Project 2 workbook, I lose the link to the master workbook. Is there a macros to keep the Project X linked to the master workbook? This is the macros I've created to input data into the master workbook to allow all formulas and pictures to populate in Project 1 workbook. I don't want to combine as 1 spreadsheet because, there is going to be multiple project names based on the order the user selects. It would take up too much memory in the server.Sub projectxupdate()
'
' projectxupdate Macro
'
'
ActiveWindow.WindowState = xlNormal
Workbooks.Open Filename:="C:\MASTERFILE.xlsx"
Windows("PROJECT1.xlsm").Activate
Range("A7:A12").Select
Selection.Copy
Windows("MASTERFILE.xlsx").Activate
ActiveSheet.Paste Link:=True
Windows("PROJECT1.xlsm").Activate
Windows("MASTERFILE.xlsx").Activate
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlMaximized
Range("B5").Select
End Sub
Sub projectxupdate()
'
' projectxupdate Macro
'
'
ActiveWindow.WindowState = xlNormal
Workbooks.Open Filename:="C:\MASTERFILE.xlsx"
Windows("PROJECT1.xlsm").Activate
Range("A7:A12").Select
Selection.Copy
Windows("MASTERFILE.xlsx").Activate
ActiveSheet.Paste Link:=True
Windows("PROJECT1.xlsm").Activate
Windows("MASTERFILE.xlsx").Activate
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlMaximized
Range("B5").Select
End Sub
'
' projectxupdate Macro
'
'
ActiveWindow.WindowState = xlNormal
Workbooks.Open Filename:="C:\MASTERFILE.xlsx"
Windows("PROJECT1.xlsm").Activate
Range("A7:A12").Select
Selection.Copy
Windows("MASTERFILE.xlsx").Activate
ActiveSheet.Paste Link:=True
Windows("PROJECT1.xlsm").Activate
Windows("MASTERFILE.xlsx").Activate
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlMaximized
Range("B5").Select
End Sub
Sub projectxupdate()
'
' projectxupdate Macro
'
'
ActiveWindow.WindowState = xlNormal
Workbooks.Open Filename:="C:\MASTERFILE.xlsx"
Windows("PROJECT1.xlsm").Activate
Range("A7:A12").Select
Selection.Copy
Windows("MASTERFILE.xlsx").Activate
ActiveSheet.Paste Link:=True
Windows("PROJECT1.xlsm").Activate
Windows("MASTERFILE.xlsx").Activate
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlMaximized
Range("B5").Select
End Sub