.

In the first part of this article, I am going to share very small but useful VBA codes which are most frequently used in day-to-day VBA programming. Many of you had requested them so I have clubbed all of them together and made one article 🙂 Enjoy reading this.

Closing All Open Workbooks

You can call the below function to close all open workbooks:



Public Sub CloseAllWorkbooks()
Dim Wb As Workbook
' Workbooks is the collection of all open workbooks
For Each Wb In Workbooks
    If Wb.Name <> ThisWorkbook.Name Then
        Wb.Close savechanges:=True 'Set False if you want them to close without saving it
    End If
Next Wb
'  This statement will close the current workbook 
'  where vba code is running. Below stattement can 
'  not be written before
ThisWorkbook.Close savechanges:=True

End Sub

Closing All Inactive Workbooks

You can call the below function to close all inactive workbooks:



Public Sub CloseAllInactiveWorkbooks()
Dim Wb As Workbook
Dim WbName As String
WbName = ActiveWorkbook.Name
 ' Workbooks is the collection of all open Workbooks
For Each Wb In Workbooks
    If Wb.Name <> WbName Then
        Wb.Close savechanges:=True
    End If
Next Wb

End Sub

Saving All Open Workbooks

Below code will save all the open workbooks:
 


Public Sub SaveAllWorkbook()
Dim WB As Workbook
For Each WB In Workbooks
    WB.Save
Next WB
End Sub

Get the name of First Sheet in a Workbook

Keyword Sheets is a collection of all Sheets and WorkSheets of a workbook. Each sheet can be referred by passing the index number.

For example: First sheet can be referred as Sheets(1), Second as Sheets(2) and so on…

Below code will give you name of the first sheet in your workbook.


Public Sub FirstSheetName()
  Dim firstSheet As String
  firstSheetName = Sheets(1).Name
End Sub

Get the name of Last Sheet in a Workbook

Below code will give you name of the last sheet in your workbook.

Note: Count is the property of Object Sheets which returns the total number of sheets available in the workbook


Public Sub LastSheetName()
  Dim firstSheet As String
  firstSheetName = Sheets(Sheets.Count).Name
End Sub

Buy a coffee for the author

Adsense

Download FREE Tools and Templates

There are many cool and useful excel tools and templates available to download for free. For most of the tools, you get the entire VBA code base too which you can look into it, play around it, and customize according to your need.

Dynamic Arrays and Spill Functions in Excel: A Beginner’s Guide
Dynamic Arrays and Spill Functions in Excel: A Beginner’s Guide

In today's tutorial, we'll be diving into the exciting world of dynamic arrays and spill functions in Office 365 Excel. These features have revolutionized the way we work with data, providing a more flexible and efficient way to handle arrays. I am going to explain...

How to Declare a Public Variable in VBA
How to Declare a Public Variable in VBA

While programming in VBA sometimes you need to declare a Public Variable that can store the value throughout the program. Use of Public Variable: Let's say you have 4 different Functions in your VBA Code or Module and you have a variable that may or may not be...

How to Copy content from Word using VBA

As many of us want to deal with Microsoft Word Document from Excel Macro/VBA. I am going to write few articles about Word from Excel Macro. This is the first article which opens a Word Document and read the whole content of that Word Document and put it in the Active...

What is Excel Formula?

Excel Formula is one of the best feature in Microsoft Excel, which makes Excel a very very rich application. There are so many useful built-in formulas available in Excel, which makes our work easier in Excel. For all the automated work, Excel Macro is not required. There are so many automated things can be done by using simple formulas in Excel. Formulas are simple text (With a Syntax) which is entered in to the Excel Worksheet Cells. So how computer will recognize whether it is a formula or simple text? Answer is simple.. every formula in Excel starts with Equal Sign (=).

You May Also Like…

0 Comments

Submit a Comment

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

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Join and get a FREE! e-Book

Don't miss any articles, tools, tips and tricks, I publish here

You have Successfully Subscribed!

Pin It on Pinterest