Skip to content

Working With Workbooks in Excel VBA

    Referring to a Workbook

    Using ThisWorkbook

    Dim wb As Workbook
    Set wb = ThisWorkbook
    wb.Close SaveChanges:=True

    Open a Workbook

    Workbooks.Open Filename:="C:\Users\xxxx\Desktop\Finance.xlsx", ReadOnly:=True

    Close (and Save Changes to) a Previously Saved Workbook

    Workbooks("Finance.xlsx").Close SaveChanges:=True

    Close (and Save Changes to) to a New Workbook

    ActiveWorkbook.Close savechanges:=True,Filename:="C:\Users\xxxx\Desktop\Test.xlsx"

    Save Workbook

    ActiveWorkbook.Save

    Performing a SaveAs…

    ActiveWorkbook.SaveAs Filename:="C:\Users\xxxx\Desktop\COPY_Test.xlsx"

    Delete Workbook

    Kill "C:\Users\xxxx\Desktop\COPY_Test.xlsm"

    Protect a Workbook

    ActiveWorkbook.Protect Password:="BadPassword"

    Add a Named Reference to a Workbook

    ActiveWorkbook.Names.Add Name:="SalesTotal", RefersTo:="=Sheet1!$A$10"