Excel vba if activesheet name

• If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

1. 08-02-2006, 11:40 AM

   
   

   #1

   If activesheet is called X, then do y
   

   Hi guys,

   I need some VBA that says if the active sheet is «dogs», then call macro
   entitled get dogs. If active sheet is «cats», then call macro entitled
   «get Cats».

   Possible…?

   Thanks!!

   D

   *** Sent via Developersdex http://www.developersdex.com ***

   ---

2. 08-02-2006, 11:45 AM

   
   

   #2

   Re: If activesheet is called X, then do y
   

   Assuming everything exists..
   Run ActiveSheet.Name

   Charles
   xl Geek

   Darin Kramer wrote:

   
   > Hi guys,
   >
   > I need some VBA that says if the active sheet is «dogs», then call macro
   > entitled get dogs. If active sheet is «cats», then call macro entitled
   > «get Cats».
   >
   > Possible…?
   >
   > Thanks!!
   >
   > D
   >
   >
   > *** Sent via Developersdex http://www.developersdex.com ***

   ---

3. 08-02-2006, 11:45 AM

   
   

   #3

   Re: If activesheet is called X, then do y
   

   One way I think will work is:

   if activesheet.name = «dogs» then GetDogs
   if activesheet.name = «cats» then GetCats

   However, when is this code supposed to run. Is it based on anytime the
   sheet is active, or is it dependent on some other code that runs?
   If it is to run any time those sheets are activated then you could add code
   specifically to that sheet.
   For example:

   Right-click on sheet «dogs» and select View code. Click General dropdown
   and select Worksheet. Click other dropdown and make sure it is on
   Activate».
   Then in your code, enter the macro name you want to run when this sheet is
   selected. Here’s what it would look like:

   Private Sub Worksheet_Activate()
   GetDogs
   End Sub

   HTH,
   Paul

   «Darin Kramer» <darin_kramer@hotmail.com> wrote in message
   news:u6yYVkktGHA.2020@TK2MSFTNGP03.phx.gbl…

   
   >
   > Hi guys,
   >
   > I need some VBA that says if the active sheet is «dogs», then call macro
   > entitled get dogs. If active sheet is «cats», then call macro entitled
   > «get Cats».
   >
   > Possible…?
   >
   > Thanks!!
   >
   > D
   >
   >
   > *** Sent via Developersdex http://www.developersdex.com ***

   ---

4. 08-02-2006, 12:00 PM

   
   

   #4

   Re: If activesheet is called X, then do y
   

   One way I think will work is:

   if activesheet.name = «dogs» then GetDogs
   if activesheet.name = «cats» then GetCats

   However, when is this code supposed to run. Is it based on anytime the
   sheet is active, or is it dependent on some other code that runs?
   If it is to run any time those sheets are activated then you could add code
   specifically to that sheet.
   For example:

   Right-click on sheet «dogs» and select View code. Click General dropdown
   and select Worksheet. Click other dropdown and make sure it is on
   Activate».
   Then in your code, enter the macro name you want to run when this sheet is
   selected. Here’s what it would look like:

   Private Sub Worksheet_Activate()
   GetDogs
   End Sub

   HTH,
   Paul

   «Darin Kramer» <darin_kramer@hotmail.com> wrote in message
   news:u6yYVkktGHA.2020@TK2MSFTNGP03.phx.gbl…

   
   >
   > Hi guys,
   >
   > I need some VBA that says if the active sheet is «dogs», then call macro
   > entitled get dogs. If active sheet is «cats», then call macro entitled
   > «get Cats».
   >
   > Possible…?
   >
   > Thanks!!
   >
   > D
   >
   >
   > *** Sent via Developersdex http://www.developersdex.com ***

   ---

5. 08-02-2006, 12:20 PM

   
   

   #5

   Re: If activesheet is called X, then do y
   

   Oops I forgot the «get»
   Run «get» & Activesheet.Name
   I eliminated the space because I don’t think excel will let you have a
   space in a macro name.

   Charles
   xl Geek
   Die_Another_Day wrote:

   
   > Assuming everything exists..
   > Run ActiveSheet.Name
   >
   > Charles
   > xl Geek
   >
   > Darin Kramer wrote:
   > > Hi guys,
   > >
   > > I need some VBA that says if the active sheet is «dogs», then call macro
   > > entitled get dogs. If active sheet is «cats», then call macro entitled
   > > «get Cats».
   > >
   > > Possible…?
   > >
   > > Thanks!!
   > >
   > > D
   > >
   > >
   > > *** Sent via Developersdex http://www.developersdex.com ***

   ---

6. 08-02-2006, 02:50 PM

   
   

   #6

   Re: If activesheet is called X, then do y
   

   I had forgotten to take out a line. Here is the version that works. Sorry
   about that.

   Sub fill_in()
   ActiveSheet.Range(«A3»).Select
   For Each cell In Sheets
   Do
   If ActiveCell > «» Then

   ElseIf ActiveCell.Offset(0, 3) > «» Then
   ActiveCell = ActiveCell.Offset(-1, 0)

   ElseIf ActiveCell = «» And ActiveCell.Offset(1, 0) = «» Then
   Exit For
   End If
   ActiveCell.Offset(1, 0).Activate
   Loop
   Next
   End Sub

   —
   Best wishes,

   Jim

   «PCLIVE» wrote:

   
   > One way I think will work is:
   >
   > if activesheet.name = «dogs» then GetDogs
   > if activesheet.name = «cats» then GetCats
   >
   > However, when is this code supposed to run. Is it based on anytime the
   > sheet is active, or is it dependent on some other code that runs?
   > If it is to run any time those sheets are activated then you could add code
   > specifically to that sheet.
   > For example:
   >
   > Right-click on sheet «dogs» and select View code. Click General dropdown
   > and select Worksheet. Click other dropdown and make sure it is on
   > Activate».
   > Then in your code, enter the macro name you want to run when this sheet is
   > selected. Here’s what it would look like:
   >
   > Private Sub Worksheet_Activate()
   > GetDogs
   > End Sub
   >
   >
   > HTH,
   > Paul
   >
   >
   > «Darin Kramer» <darin_kramer@hotmail.com> wrote in message
   > news:u6yYVkktGHA.2020@TK2MSFTNGP03.phx.gbl…
   > >
   > > Hi guys,
   > >
   > > I need some VBA that says if the active sheet is «dogs», then call macro
   > > entitled get dogs. If active sheet is «cats», then call macro entitled
   > > «get Cats».
   > >
   > > Possible…?
   > >
   > > Thanks!!
   > >
   > > D
   > >
   > >
   > > *** Sent via Developersdex http://www.developersdex.com ***
   >
   >
   >

   ---

In this article you will be learning about sheets vs worksheets in excel VBA and how to use of these functions when manipulating spreadsheets.

Difference between Worksheets and Sheets in VBA

In VBA, you have two collections that can be a bit confusing at times. In a workbook, you can have worksheets and as well as chart sheets.

In Excel VBA:

• The ‘Worksheets’ collection would refer to the collection of all the worksheet objects in a workbook.
• The ‘Sheets’ collection would refer to all the worksheets as well as chart sheets in the workbook.

To run the VBA code in Excel, perform the following first

•   Under the developer tab, click visual basic
•   Click the insert option and choose a module
•   Enter your codes and click run.

Now we know, ‘sheets’ is the collection of worksheets and chart sheets.

Looping through each Object in the Sheets collection

To loop through every sheet,

Code:

Sub UsingObject()

Dim obj As Object

For Each obj In ActiveWorkbook.Sheets

    MsgBox obj.Name

Next obj

End Sub

Looping through every Sheet in the Sheets collection

We can also count the sheets, then loop using a For loop.

Code

Sub UsingCount()

Dim i As Integer

For i = 1 To Sheets.Count

    MsgBox Sheets(i).Name

Next i

End Sub

This method of looping by counting the objects will work equally well with Charts and Worksheets.

Worksheets

When you have to work with worksheets only, use the ‘Worksheets’ collection, and when you have to refer to all sheets, then use the ‘Sheets’ collection.

Let’s see worksheets in detail.

Referencing a Worksheet in VBA

You can refer a worksheet in the following methods.

Using the Worksheet Name

This is the easiest way to refer to a worksheet.

When you are working with a workbook with three worksheets namely Sheet 1, Sheet 2, Sheet 3 (which is common in any excel file) and you want to activate Sheet 3.

Use the following code:

Code:

Sub ActivateSheet()

Worksheets("Sheet3").Activate

End Sub

You can also use the sheets collection method to activate the sheets, as we are using the name of the sheet as the key point.

Use this code

Code:

Sub ActivateSheet()

Sheets("Sheet3").Activate

End Sub

Using the Index Number

The difficult part of using the name of the sheet to refer them is you need to know the exact name of the sheet or the program doesn’t work.

In this case, you can use the index number of the worksheets. The indexing starts from 1 in the collection of sheets.

Use this code to activate Sheet3:

Code

Sub ActivateSheet()

Worksheets(3).Activate

End Sub

Important: A chart sheet is not a part of the worksheets collection.

This is because when we use the index numbers in the Worksheet collection, it will only refer to the worksheets in the workbook.

Note: Indexing goes from left to right. So if you shift Sheet3 to the left of Sheet2, then Worksheets (2) would refer to Sheet3.

Using the Worksheet Code Name

You can use the code name of the worksheet to refer to a worksheet.  This code name can be assigned in the VB Editor and it won’t change when you change the name of the worksheet.

To give your worksheet a code name, follow these steps:

• Under the Developer tab, click the Visual Basic option.
•  This will open the VB Editor.
• Now, Click the View option in the menu and click on Project Window.
• Click on the sheet name in the project explorer that you want to rename.
• In the Properties pane, change the name in the field in front of (Name).

Note: Don’t include spaces in the name.

This would change the name of your Worksheet in the VBA, i.e., the code name. Therefore, when you change the worksheet name it doesn’t affect the code in your VBA.

Now, you can use either the Worksheets collection to refer to the worksheet or use the codename.

The following code uses both worksheet collection method and name of the sheet method.

Code

Worksheets("Sheet3").Activate

SH3.Activate

(I have code named my sheet as SH3)

Referring to a Worksheet in a Different Workbook

If you need to access a worksheet in a different workbook,

Code

Sub SheetActivate()

Workbooks("Examples.xlsx").Worksheets("Sheet1").Activate

End Sub

Adding a Worksheet

When you need to add a worksheet

Code

Sub AddSheet()

Worksheets.Add

End Sub

Deleting a Worksheet

When you want to delete a worksheet:

Code

Sub DeleteSheet()

ActiveSheet.Delete

End Sub

Click ok on the warning prompt. The worksheet gets deleted.

To avoid the warning prompt, use the below code:

Code

Sub DeleteSheet()

Application.DisplayAlerts = False

ActiveSheet.Delete

Application.DisplayAlerts = True

End Sub

Note: You can’t undo this delete option. So be sure.

Delete a specific worksheet.

If you want to delete a specific sheet,

Code

Sub DeleteSheet()

Worksheets("Sheet3").Delete

End Sub

You can also use the code name of the sheet to delete it.

Sub DeleteSheet()

SH3.Delete

End Sub

Renaming the Worksheets

When you want to rename the sheets using VBA code:

Sub RenameSheet()

Worksheets("Sheet1").Name = "Naming sheet"

End Sub

Code

Adding Multiple Sheets

When you need to add multiple sheets

Code

Sub RenameSheet()

Dim Countsheets As Integer

Countsheets = Worksheets.Count

For i = 1 To 4

Worksheets.Add after:=Worksheets(Countsheets + i – 1)

Worksheets(Countsheets + i).Name = "Multiple Sheets 1" & i

Next i

End Sub

Assigning Worksheet Object to a Variable

You can assign a worksheet to an object variable, and then use the variable instead of the worksheet references.

Code

Sub RenameSheet()

Dim Ws As Worksheet

For Each Ws In Worksheets

Ws.Name = "Assigning Variable " & Ws.Name

Next Ws

End Sub

Hide Worksheets Using VBA

You can hide and unhide worksheets using VBA. Normally when a worksheet is hidden, you can easily unhide the worksheet by right-clicking on any sheet tab.

But if you don’t want to unhide the worksheet in this method, you can do this using VBA.

The code below would hide all the worksheets in the workbook (except the active sheet), such that you cannot unhide it by right-clicking on the sheet name.

Code

Sub HideAllExcetActiveSheet()

Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets

If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetVeryHidden

Next Ws

End Sub

If you want to hide sheets that can be unhidden easily, use the below code.

Code

Sub HideAllExceptActiveSheet()

Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets

If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetHidden

Next Ws

End Sub

To unhide the sheets

Code:

Sub UnhideAllWoksheets()

Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets

Ws.Visible = xlSheetVisible

Next Ws

End Sub

Hide Sheets Based on the Text in it

You can hide sheets based on the text in it. You can do this using the VBA INSTR function.

The below code would hide all the sheets except the ones with the text 2020 in it.

Code:

Sub HideWithMatchingText()

Dim Ws As Worksheet

For Each Ws In Worksheets

If InStr(1, Ws.Name, "2020", vbBinaryCompare) = 0 Then

Ws.Visible = xlSheetHidden

End If

Next Ws

End Sub

Sorting the Worksheets in an Alphabetical Order

Using VBA, you can quickly sort the worksheets based on their names.

Use the below code to quickly sort sheets in an ascending order.

Code

Sub SortSheetsTabName()

Application.ScreenUpdating = False

Dim ShCount As Integer, i As Integer, j As Integer

ShCount = Sheets.Count

For i = 1 To ShCount – 1

For j = i + 1 To ShCount

If Sheets(j).Name < Sheets(i).Name Then

Sheets(j).Move before:=Sheets(i)

End If

Next j

Next i

Application.ScreenUpdating = True

End Sub

Creating a Table of Contents of All Worksheets with Hyperlinks

To create a table of contents of all worksheets:

Code

Sub AddIndexSheet()

Worksheets.Add

ActiveSheet.Name = "Index"

For i = 2 To Worksheets.Count

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i – 1, 1), _

Address:="", SubAddress:=Worksheets(i).Name & "!A1", _

TextToDisplay:=Worksheets(i).Name

Next i

End Sub

The above code inserts a new worksheet and names it Index.

It then loops through all the worksheets and creates a hyperlink for all the worksheets in the Index sheet.

In Excel VBA, IF Then Else statement allows you to check for a condition, and perform an action accordingly.

This is extremely valuable in many situations as we will see in the examples later in this tutorial.

To give you a simple example, suppose you have a list of grades in Excel and you want to highlight all those students who have scored an A. Now, if I ask you to do this manually, you will check each student’s grade and if it’s an A, you’ll highlight it, and if it isn’t, then you’ll leave it as is.

The same logic can be built in VBA using the If Then Else statement as well (and of course do a lot more than just highlighting grades).

In this tutorial, I’ll show you different ways the ‘If Then Else’ construct can be used in Excel VBA, and some practical examples in action.

But before I get into the specifics, let me give you the syntax of the ‘IF Then Else’ statement.

If you’re interested in learning VBA the easy way, check out my Online Excel VBA Training.

Syntax – IF Then Else

Below is the generic syntax of If Then Else construct in VBA

IF condition Then true_code [Else false_code]

Or

IF condition Then
true_code
Else
false_code
End IF

Note that the Else part of this statement is optional.

Now if you’re wondering what’s the difference between the two syntaxes, let me clarify.

The first syntax is a simple one-line IF THEN ELSE statement where you don’t need to use the END IF statement.

However, in the second syntax, the true_code part is in the second line. This is helpful when the code that you need to run in case the IF condition is true is long and consists of multiple lines.

When you split the IF statement into multiple lines, you need to tell VBA where the IF Then construct ends.

Hence you need to use the End IF statement.

In case you don’t use End IF when required, VBA will show you an error – “Block IF without END IF”

Examples of Using IF Then Statement in VBA

To give you an idea of how the IF-THEN statement works in VBA, let me start with some basic examples (some practical and more useful examples are covered later in this tutorial).

Suppose you have a student’s score in cell A1 and you want to check whether the student passed the exam or not (passing marks threshold being 35).

Then you can use the following code:

Sub CheckScore()
If Range("A1").Value >=35 Then MsgBox "Pass"
End Sub

The above code has a single line of IF statement that checks the value in cell A1.

If it’s more than 35, it shows the message – “Pass”.

If it’s less than 35, nothing happens.

But what if you want to show a message in both the cases, whether a student passed or failed the exam.

The below code would do this:

Sub CheckScore()
If Range("A1").Value >= 35 Then
MsgBox "Pass"
Else
MsgBox "Fail"
End If
End Sub

The above code uses the IF as well as the ELSE statement to execute two different conditions. When the score is more than (or equal to) 35, the IF condition is true, and the code right below it gets executed (everything before the Else statement).

But when the IF condition is FALSE, the code jumps to the Else part and executes the code block in it.

Note that when we use a single line of IF Then statement, we don’t need to use End IF. But when we split it into more than one line, we need to use the End If statement.

Nested IF Then (Multiple IF Then statements)

So far we have used a single IF Then statement.

In case you have multiple conditions to check, you can use:

• Multiple IF conditions
• If Then Else statement
• IF Then ElseIf Else construct

Let me show you how these differ and how to use this in Excel VBA.

Multiple IF Then Statements

Let’s take the same example of using a student’s score.

If the student scores less than 35, the message to display is ‘Fail’, if the score is more than or equal to 35, the message to display is ‘Pass’.

We can use the below code to get this done:

Sub CheckScore()
If Range("A1").Value < 35 Then MsgBox "Fail"
If Range("A1").Value >= 35 Then MsgBox "Pass"
End Sub

You can use multiple IF Then statement as shown above. While this works, it’s not an example of good coding (as you will see the alternatives below).

In case you decide to use this, remember that these statements should either be independent or mutually exclusive. The important thing to know here is that in the above construct, all the IF statements are evaluated and the ones where the condition is true, the code is executed.

So even if the first IF statement is correct, the second would still be evaluated.

IF Then Else Statement

Suppose this time, instead of just displaying the message Pass/Fail, we have one more condition.

If the student scores less than 35, the message to display is ‘Fail’, if the score is more than or equal to 35, the message to display is ‘Pass’, and if the score is more than 80, the message to display is ‘Pass, with Distinction’.

We can use the below code to get this done:

Sub CheckScore()
If Range("A1").Value < 35 Then
MsgBox "Fail"
Else
If Range("A1").Value < 80 Then
MsgBox "Pass"
Else
MsgBox "Pass, with Distinction"
End If
End If
End Sub

In the above code, we have used multiple IF statements (nested IF Then) with the help of Else.

So there is an ‘IF Then Else’ construct within an ‘IF Then Else’ construct. This type of nesting allows you to check for multiple conditions and run the relevant block of code.

IF Then ElseIf Else Statement

The above code (that we saw in the previous section) can be further optimized by using the ElseIf statement.

Here is what we’re trying to do – If the student scores less than 35, the message to display is ‘Fail’, if the score is more than or equal to 35, the message to display is ‘Pass’, and if the score is more than 80, the message to display is ‘Pass, with Distinction’.

Sub CheckScore()
If Range("A1").Value < 35 Then
MsgBox "Fail"
ElseIf Range("A1").Value < 80 Then
MsgBox "Pass"
Else
MsgBox "Pass, with Distinction"
End If
End Sub

The above code uses ElseIf, which allows us to keep all the conditions within one single IF Then statement.

Using AND and OR in IF Then Else

So far in this tutorial, we have only checked for a single condition at a time.

However, when you have multiple dependent conditions, you can use the AND or OR statement with the IF conditions.

Below is the syntax of using AND/OR condition with the IF Then statement.

IF Condition1 AND Condition2 Then
true_code
Else
false_code
End IF

In the above code, only when both Condition1 and Condition2 are met, the true_code is executed. Even if one of the conditions is false, it will execute the false_code.

With OR, even if one of the conditions are true, it will execute the true_code. Only when all the conditions are false, it executes the false_code.

Now let’s see how AND and OR statement work with the IF Then Else construct.

Suppose you have the scores for two subjects instead of one, and you want to check for the following conditions:

• Fail – When the score is less than 35 in any of the subjects.
• Pass – When the score is more than or equal to 35, but less than 80 in both the subjects.
• Pass, with Distinction – When the score is more than 35 in both the subjects and is more than or equal to 80 in one or both the subjects.

Here is the code that will do this:

Sub CheckScore()
If Range("A1").Value < 35 Or Range("B1").Value < 35 Then
MsgBox "Fail"
ElseIf Range("A1").Value < 80 And Range("B1").Value < 80 Then
MsgBox "Pass"
Else
MsgBox "Pass, with Distinction"
End If
End Sub

The above code uses both OR and AND statements.

You can also write this same code with a slight change (using OR instead of AND).

Sub CheckScore()
If Range("A1").Value < 35 Or Range("B1").Value < 35 Then
MsgBox "Fail"
ElseIf Range("A1").Value > 80 Or Range("B1").Value > 80 Then
MsgBox "Pass, with Distinction"
Else
MsgBox "Pass"
End If
End Sub

Both the above VBA codes will give you the same result. Personally, I prefer the first one as it has a logical flow of checking the scores (but that’s just me).

Using Not Equal to in If Then

In all the examples above, we have used the conditions that check whether a value equal to a specified value or not.

You can also use similar codes when checking when the value is not equal to a specified value in the VBA code. Not equal to represented by <> the Excel VBA.

To see a practical example of using <>, have a look at Example 1 below.

Using If Then Else with Loops in VBA

So far, we have been going through some examples that are good to understand how the ‘IF-THEN’ statements work in VBA, however, are not useful in the practical world.

If I need to grade students, I can easily do that using Excel functions.

So let’s have a look at some useful and practical examples that can help you automate some stuff and be more efficient.

Example 1 – Save and Close All Workbooks Except The Active Workbook

If you have a lot of workbooks open and you quickly want to close all, except the active workbook, you can use the below code,

Sub SaveCloseAllWorkbooks()
Dim wb As Workbook
For Each wb In Workbooks
On error resume next
If wb.Name <> ActiveWorkbook.Name Then
wb.Save
wb.Close
End If
Next wb
End Sub

The above code would save and close all the workbooks (except the active one).

It uses the For Next loop to go through the collection of all the open workbooks and checks the name using the IF condition.

If the name is not the same as that of the Active workbook, it saves and closes it.

In case there is a VBA code in any of the workbooks and you haven’t saved it as .xls or .xlsm, you will see a warning (as the vba codes are lost when you save it in .xlsx format).

Example 2 – Highlight Cells with Negative Values

Suppose that you have a column full of numbers and you want to quickly highlight all the cells with negative values in red, you can do that using the below code.

Sub HighlightNegativeCells()
Dim Cll As Range
For Each Cll In Selection
If Cll.Value < 0 Then
Cll.Interior.Color = vbRed
Cll.Font.Color = vbWhite
End If
Next Cll
End Sub

The above code uses the For Each loop and checks each cell in the selection that you have made. If the cell has a value that is negative, it’s highlighted in red with white font color.

Example 3 – Hide All the Worksheet Except the Current Worksheet

In case you want to quickly hide all the worksheets except the active one, you can use the below code:

Sub HideAllExceptActiveSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
Next ws
End Sub

The above code uses the For Each loop to go through a collection of worksheets. It checks the name of each worksheet and hides it if it’s not the active worksheet.

Example 4 – Extract the Numeric Part from an Alphanumeric String

If you have alphanumeric strings in cells and you want to extract the numeric part from it, you can do that using the below code:

Function GetNumeric(CellRef As String)
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetNumeric = Result
End Function

This code will create a custom function in Excel that can use within the worksheet (just like a regular function).

Where to Put the VBA Code?

Wondering where the VBA code goes in your Excel workbook?

Excel has a VBA backend called the VB editor. You need to copy and paste the code in the VB Editor module code window.

Here are the steps to do this:

1. Go to the Developer tab.
2. Click on Visual Basic option. This will open the VB editor in the backend.
3. In the Project Explorer pane in the VB Editor, right-click on any object for the workbook in which you want to insert the code. If you don’t see the Project Explorer go to the View tab and click on Project Explorer.
4. Go to Insert and click on Module. This will insert a module object for your workbook.
5. Copy and paste the code in the module window.

You May Also Like the Following Excel Tutorials:

• How to Record a Macro in Excel.
• Working with Cells and Ranges in Excel VBA.
• Working with Worksheets in Excel VBA.
• Working with Workbooks in Excel VBA.
• Creating a Custom Function in Excel Using VBA.
• Excel VBA Events – An Easy (and Complete) Guide.
• Excel VBA MsgBox
• How to Run a Macro in Excel.
• How to Create and Use an Excel Add-in.
• Excel Personal Macro Workbook | Save & Use Macros in All Workbooks.
• Useful Excel Macro Examples for VBA Beginners (Ready-to-use).
• How to Use Excel VBA InStr Function (with practical EXAMPLES).