So I have created a macro where an individual will fill out a form click submit and it will copy the information into a new worksheet; problem is I want the name of the new worksheet and data to feed into the summary page in the front. So as of now when I run the macro a new tab with information gets created but the summary tab is still referencing the previous sheet not the new sheet.
Sheets("Pre-money Valuation template").Copy After:=Sheets("Pre-money Valuation template")
Selection.Copy
ActiveSheet.paste
Range("C14").Select
Application.CutCopyMode = False
strName = ActiveSheet.Range("C14")
ActiveSheet.Name = strName
Sheets("DCVC Quick and Dirty").Select
Rows("4:4").Select
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B5:W5").Select
Selection.Copy
Range("B4").Select
ActiveSheet.paste
Application.CutCopyMode = False
Sheets("DCVC Quick and Dirty").Select
Rows("4:4").Select
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B5:W5").Select
Selection.Copy
Range("B4").Select
ActiveSheet.paste
Application.CutCopyMode = False
Range("B4").Select
ActiveSheet.Range ("C14")
Range("C4").Select
ActiveSheet.Range ("F17")
Range("E4").Select
ActiveSheet.Range ("F18")
Range("B4").Select
End Sub
Sheets("Pre-money Valuation template").Copy After:=Sheets("Pre-money Valuation template")
Selection.Copy
ActiveSheet.paste
Range("C14").Select
Application.CutCopyMode = False
strName = ActiveSheet.Range("C14")
ActiveSheet.Name = strName
Sheets("DCVC Quick and Dirty").Select
Rows("4:4").Select
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B5:W5").Select
Selection.Copy
Range("B4").Select
ActiveSheet.paste
Application.CutCopyMode = False
Sheets("DCVC Quick and Dirty").Select
Rows("4:4").Select
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B5:W5").Select
Selection.Copy
Range("B4").Select
ActiveSheet.paste
Application.CutCopyMode = False
Range("B4").Select
ActiveSheet.Range ("C14")
Range("C4").Select
ActiveSheet.Range ("F17")
Range("E4").Select
ActiveSheet.Range ("F18")
Range("B4").Select
End Sub