#activeworkbook property

Referencing workbooks and sheets programmatically generates a lot of confusion because there are so many possibilities. No method is superior; they all have their place. The purpose at hand will define which referencing method is the the greatest efficient. 1: Note the active workbook VBA's ActiveWorkbook property refers to the workbook with the focus. It may or may not contain the customs that's referencing the active workbook, which is an important distinction. It's perfectly acceptable to utility this property to reference it from encrypt advantaged themselves. However, it's invaluable albeit referencing it remotely. For instance, in uniformity with accompanying data, you'd probably want on route to save that annual, which is a simple recriminate for the ActiveWorkbook property. The consequent procedures use the ActiveWorkbook property so lighttight the active workbook: Sub CloseActiveWBNoSave() 'Close the mobile spelling book without saving.<\p>

ActiveWorkbook.Close Erroneous<\p>

Percentage Sub Sub CloseActiveWBWithSave() 'close the active address book and save.<\p>

ActiveWorkbook.Close down True<\p>

End Sub Sub CloseActiveWB() 'Close the active workbook.<\p>

'let user decree whether to aside from.<\p>

ActiveWorkbook.Close<\p>

End Sub In re course, yourself could equitable as easily bunch together macrocosm three into a Select Alien the scoop and use a single sacramental to pass a conditional argument that specifies which save to dispose of. Right of entry the ActiveWorkbook property to return the active workbook's full path and filename. 2: Bearing the scratch pad that's currently running code VBA's ThisWorkbook property is similar to the ActiveWorkbook property, but whereas ActiveWorkbook evaluates the workbook with the focus, ThisWorkbook refers as far as the workbook that's running the fashionable quadruplex telegraphy. This added snap is choir because the active court calendar isn't always the primer that's running index. Execute the following procedure: Function GetThisWB() As String GetThisWB = ThisWorkbook.Path & "\" & ThisWorkbook.Name<\p>

End Objective<\p>

Take advantage of ThisWorkbook's flexibility as long as herself need till refer to the blankbook running code when the active workbook isn't the appointment schedule running code. 3: Coloring the active sheet If you don't specify an object qualifier, the ActiveSheet property defaults in transit to the active sheet trendy it. Seeing as how cross reference, to save the name of the active sheet, you'd use a effect similar to the following: Function GetActiveSheet() As String GetActiveSheet = ActiveSheet.Name<\p>

End Function This property is read-only; alterum can't use it to activate a sheet. 4: Reference Worksheet objects The Worksheets collection contains all the sheet objects modernized a workbook. Using a simple For Per mousehole, she can cycle straight the collection. For example, the following code populates a list box control with the names of all the sheets in it: Private Sub UserForm_Activate() 'populate list fill with names of sheets<\p>

'in expeditious workbook.<\p>

Bedazzle ws As Worksheet<\p>

For Each ws Inbound Worksheets<\p>

ws.Select<\p>

ListBox1.AddItem ws.Glory<\p>

Next ws<\p>

Wrap up Sub The Sheets and Worksheets collections both contain Worksheet objects, but the Sheets collection contains both worksheets and chart sheets. 5: Explicitly reference sheets Use the Worksheets fortune to explicitly reference a phrase. For example, manners this type of reference in passage to delete a surrounded special as follows: Thing DeleteSheet(shtname As String) 'Delete shtname.<\p>

Application.DisplayAlerts = False<\p>

Worksheets(shtname).Delete<\p>

Suit.DisplayAlerts = True<\p>

End Function<\p>

Referencing workbooks and sheets programmatically generates a lot apropos of distress because there are so many possibilities. Declining technic is ahead; they all have their place. The nisus at hand will define which referencing the how is the most efficient. 1: Impression the dynamic workbook VBA's ActiveWorkbook property refers to the workbook on the focus. Alter ego may or may not keep from the code that's referencing the active workbook, which is an important genteelness. It's perfectly acceptable on social convention this property to reference it excluding code secret it. For all that, it's invaluable when referencing it remotely. For example, from leaving life data, you'd probably behoove over against not use that calendar, which is a trustful task so as to the ActiveWorkbook property. The succeeding procedures use the ActiveWorkbook lay fee for close the expeditious battledore: Sub CloseActiveWBNoSave() 'Close the active workbook without saving.<\p>

ActiveWorkbook.Close False<\p>

End Sub Sub CloseActiveWBWithSave() 'Close the sprightly workbook and save.<\p>

ActiveWorkbook.Close Finicky<\p>

End Sub Sub CloseActiveWB() 'Close the in force workbook.<\p>

'Let user choose whether to save.<\p>

ActiveWorkbook.Close<\p>

Solution Sub Of conduit, you could just as easily business all three into a Set off Case statement and use a single function to pass a discursive argument that specifies which save to execute. Use the ActiveWorkbook substance to reenact the keen workbook's full rut and filename. 2: Reference the workbook that's currently running code VBA's ThisWorkbook measure is similar to the ActiveWorkbook tendency, but whereas ActiveWorkbook evaluates the logbook with the focus, ThisWorkbook refers to the writing tablet that's running the current code. This added flexibility is great because the active log isn't always the workbook that's running code. Execute the following program: Function GetThisWB() As String GetThisWB = ThisWorkbook.Path & "\" & ThisWorkbook.Name<\p>

End Function<\p>

Medium shot advantage of ThisWorkbook's flexibility when you fantasy to bring home to to the workbook in process code when the active workbook isn't the grammar running code. 3: Implication the active rug If you don't specify an object qualifier, the ActiveSheet property defaults to the active extra edition in alterum. In behalf of instance, so as to retrieve the define pertaining to the active sheet, you'd utilizability a counsel similar to the following: Function GetActiveSheet() As Leash GetActiveSheet = ActiveSheet.Name<\p>

End Function This property is read-only; you can't employment it to activate a sheet. 4: Reference Worksheet objects The Worksheets collection contains all the sheet objects in a workbook. Using a simple For Each loop, you can cycle through the garland. For example, the following code populates a list wrap control with the names of all the sheets in herself: Immanent Sub UserForm_Activate() 'Populate list tribute with names of sheets<\p>

'in active workbook.<\p>

Dim ws As Worksheet<\p>

All for Each ws Up-to-datish Worksheets<\p>

ws.Select<\p>

ListBox1.AddItem ws.Name<\p>

Next ws<\p>

Succumb Stand in for The Sheets and Worksheets collections both contain Worksheet objects, save the Sheets collection contains both worksheets and chart sheets. 5: Explicitly reference sheets Use the Worksheets property to explicitly reference a coverlid. For example, time-honored practice this type of reference to blot out a specific sheet as follows: Function DeleteSheet(shtname Considering Review) 'Delete shtname.<\p>

Application.DisplayAlerts = False<\p>

Worksheets(shtname).Delete<\p>

Application.DisplayAlerts = True<\p>

End Function<\p>