Open/Add New Workbook Macro Code

Important Notice


Please note that on 14th December 2023 users will experience an expected outage whilst we make upgrades to our network. We anticipate this process may take a couple of hours and so we apologise in advance for any inconvenience.

    I am trying to write code to open a new (blank) workbook while in an existing workbook (I am then going to pass data between the two which is easy). When I try to record the code to get the syntax for opening a new workbook it will not record any code. I also need to name the new workbook based on text in a cell in the existing workbook. I just saw before posting this that the code;


    Code
    workbooks.add


    will open a new workbook now I just need to name the new workbook based on text in my existing workbook.

    Re: Vba Code To Open A New Workbook


    Try this:

    Code
    Sub Save_Book()
Dim MyBook As String, MyRange As Range
MyBook = ThisWorkbook.Name
Set MyRange = Workbooks(MyBook).Sheets("Sheet1").Range("A1")
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & MyRange.Value '_
       ActiveWorkbook.Close
End Sub

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login