This post may contain affiliate links. Please read my disclosure for more info:

Workbook VBA properties and actions

VBA Code Snippets

VBA Code Snippets

Working with workbooks is one of the most common actions when writing VBA code.  The following is a reference guide to for finding the right syntax.



Referencing workbooks by name

'Reference a workbook by name
Workbooks("WorkbookName.xlsx").[other properties/actions]


Referencing workbooks by their status

'Reference the workbook in which the VBA code is
ThisWorkbook.[other properties/actions]

'Reference the active workbook
ActiveWorkbook.[other properties/actions]


Referencing workbooks by when they were opened

'Referencing the first workbook opened
Workbooks(1).[other properties/actions]

'Referencing the second workbook opened
Workbooks(2).[other properties/actions]

'Referencing the last workbook opened
Workbooks(Workbooks.Count).[other properties/actions]


Assign a workbook to a variable

'Assign a workbook to a variable
Dim Wk as Workbook
Set Wk = Workbooks("WorkbookName.xlsx")


Create new workbooks

'Create a new workbook

'Assign a new workbook to a variable
Dim Wk as Workbook
Set Wk = Workbooks.Add


Opening workbooks

'Open a workbook
Workbooks.Open ("C:\FilePath\WorkbookName.xlsx")

'Open a workbook as read-only
Workbooks.Open ("C:\FilePath\WorkbookName.xlsx", ReadOnly:=True)


Counting the open workbooks

'Counting the open workbooks


Saving workbooks

'Save a workbook

'Save a workbook with a new name
Workbooks("WorkbookName.xlsx").SaveAs "C:\FilePath\NewWorkbookName.xlsx"

'Save a copy of the workbook
Workbooks("WorkbookName.xlsx").SaveCopyAs "C:\FilePath\NewWorkbookName.xlsx"


Protect & Unprotect workbooks

'Protect workbook without password

'Unprotect workbook without password

'Protect workbook with password
Workbooks("WorkbookName.xlsx").Protect "Password"

'Unprotect workbook with password
Workbooks("WorkbookName.xlsx").Unprotect "Password"


Closing workbooks

'Close without saving changes
Workbooks("WorkbookName.xlsx").Close False

'Close and save changes
Workbooks("WorkbookName.xlsx").Close True


Using the active workbook

'Activate a workbook


Leave a Reply

Your email address will not be published. Required fields are marked *