VBA Code Examples

Search the list below for free Excel VBA code examples complete with explanations.
Some include downloadable files as well. These Excel VBA Macros & Scripts are professionally developed and ready-to-use.

We hope you find this list useful!

Excel Macro Examples

Below you will find a list of basic macro examples for common Excel automation tasks.

Copy and Paste a Row from One Sheet to Another

This super simple macro will copy a row from one sheet to another.

Sub Paste_OneRow()
'Copy and Paste Row
Sheets("sheet1").Range("1:1").Copy Sheets("sheet2").Range("1:1")

Application.CutCopyMode = False

End Sub

Send Email

This useful macro will launch Outlook, draft an email, and attach the ActiveWorkbook.

Sub Send_Mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "test@test.com"
        .Subject = "Test Email"
        .Body = "Message Body"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

List All Sheets in Workbook

This macro will list all sheets in a workbook.

Sub ListSheets()
    
    Dim ws As Worksheet
    Dim x As Integer
    
    x = 1
    
    ActiveSheet.Range("A:A").Clear
    
    For Each ws In Worksheets
        ActiveSheet.Cells(x, 1) = ws.Name
        x = x + 1
    Next ws
    
End Sub

Unhide All Worksheets

This macro will unhide all worksheets.

' Unhide All Worksheets
Sub UnhideAllWoksheets()
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    
End Sub

Hide All Worksheets Except Active

This macro will hide all worksheets except the active worksheet.

' Hide All Sheets Except Active Sheet
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

Unprotect All Worksheets

This macro example will unprotect all worksheets in a workbook.

' UnProtect All Worksheets
Sub UnProtectAllSheets()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Unprotect "password"
    Next ws
    
End Sub

Protect All Worksheets

This macro will protect all worksheets in a workbook.

' Protect All Worksheets
Sub ProtectAllSheets()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.protect "password"
    Next ws
    
End Sub

Delete All Shapes

This macro will delete all shapes in a worksheet.

Sub DeleteAllShapes()

Dim GetShape As Shape

For Each GetShape In ActiveSheet.Shapes
  GetShape.Delete
Next

End Sub

Delete All Blank Rows in Worksheet

This example macro will delete all blank rows in a worksheet.

Sub DeleteBlankRows()
Dim x As Long

With ActiveSheet
    For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If WorksheetFunction.CountA(.Rows(x)) = 0 Then
            ActiveSheet.Rows(x).Delete
        End If
    Next
End With

End Sub

Highlight Duplicate Values in Selection

Use this simple macro to highlight all duplicate values in a selection.

' Highlight Duplicate Values in Selection
Sub HighlightDuplicateValues()
    Dim myRange As Range
    Dim cell As Range
    
    Set myRange = Selection
    
    For Each cell In myRange
        If WorksheetFunction.CountIf(myRange, cell.Value) > 1 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Highlight Negative Numbers

This macro automates the task of highlighting negative numbers.

' Highlight Negative Numbers
Sub HighlightNegativeNumbers()
    Dim myRange As Range
    Dim cell As Range
    
    Set myRange = Selection
    
    For Each cell In myRange
        If cell.Value < 0 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Highlight Alternate Rows

This macro is useful to highlight alternate rows.

' Highlight Alternate Rows
Sub highlightAlternateRows()
    Dim cell As Range
    Dim myRange As Range
    
    myRange = Selection
    
    For Each cell In myRange.Rows
        If cell.Row Mod 2 = 1 Then
            cell.Interior.ColorIndex = 36
        End If
    Next cell
End Sub

Highlight Blank Cells in Selection

This basic macro highlights blank cells in a selection.

' Highlight all Blank Cells in Selection
Sub HighlightBlankCells()
    Dim rng As Range
    
    Set rng = Selection
    rng.SpecialCells(xlCellTypeBlanks).Interior.Color = vbCyan
    
End Sub

Excel VBA Macros Examples – Free Download

We’ve created a free VBA (Macros) Code Examples add-in. The add-in contains over 100 ready-to-use macro examples, including the macro examples above!

Excel Macro / VBA FAQs

How to write VBA code (Macros) in Excel?

To write VBA code in Excel open up the VBA Editor (ALT + F11). Type “Sub HelloWorld”, Press Enter, and you’ve created a Macro! OR Copy and paste one of the procedures listed on this page into the code window.

What is Excel VBA?

VBA is the programming language used to automate Excel.

How to use VBA to automate Excel?

You use VBA to automate Excel by creating Macros. Macros are blocks of code that complete certain tasks.

Practice VBA

You can practice VBA with our interactive VBA tutorial.