Excel Macro code to Highlight Specific Text

How to Highlight Specific Text in excel sheet through VBA Macro Code

To use VBA macro code in an Excel spreadsheet, you need to do the following:

  1. Open the Excel spreadsheet where you want to use the macro code.

  2. Press “Alt + F11” to open the VBA developer window.

  3. In the VBA developer window, click the “Insert” menu and select “Module” to create a new module.

  4. Paste the VBA macro code into the module window.

  5. To run the macro, click the “Run” button in the VBA developer window or press “F5” on your keyboard.

Alternatively, you can also create a button or a shortcut key to run the macro. To create a button, go to the “Developer” tab in the main Excel window and click the “Insert” button. Then select a button control and draw it on the worksheet. Right-click the button and select “Assign Macro” to assign the macro code to the button. To create a shortcut key, go to the “Macros” tab in the VBA developer window, select the macro from the list, and click the “Options” button. Then, enter a shortcut key in the “Shortcut key” field.

Note: If you are running the macro for the first time, you may need to enable macros in Excel by going to the “File” tab and selecting “Options.” Under the “Trust Center” settings, click the “Trust Center Settings” button and go to the “Macro Settings” tab. Select “Enable all macros” and click “OK.”

Copy Below VBA Macro Code for Highlight Specific Text
Sub highlightValue()
Dim myStr As String
Dim myRg As range
Dim myTxt As String
Dim myCell As range
Dim myChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
myTxt = ActiveWindow.RangeSelection.AddressLocal
Else
myTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput: Set myRg = _
Application.InputBox _
("please select the data range:", "Selection Required", myTxt, , , , , 8)
If myRg Is Nothing Then
Exit Sub
If myRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If myRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To myRg.Rows.Count - 1
myStr = myRg.range("B1").Offset(I, 0).Value
With myRg.range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
Mid(.Text, J, Len(myStr)) = myStrThen
.Characters(J, Len(myStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub

Highlight Specific Text: Suppose you have a large data set and you want to check for a particular value. For this, you can use this code. When you run it, you will get an input box to enter the value to search for.

RECENTLY UPLOADED EXCEL TEMPLATES

Insurance Quote Template

Insurance Quote

Introduction: Streamlining Insurance Quotations An insurance quote is a vital document in the insurance industry, serving as a preliminary estimate …

Download Now
Freelance Quotation Template

Freelance Quotation

Introduction: Mastering Freelance Quotations In the world of freelancing, creating an effective quotation is crucial for outlining the scope and …

Download Now
Fencing Quotation

Fencing Quotation

Introduction: Navigating Fencing Service Quotations A fencing service quotation is an essential tool for businesses in the fencing industry. It …

Download Now
Event Planning Quote

Event Planning Quotations

Introduction: Excelling with Event Planning Quotations An event planning quote is a critical document for event planners, detailing proposed services …

Download Now
Construction Quote Template

Construction Quote

Introduction: Optimizing Construction Quotations A construction quote is a fundamental document in the construction industry, serving as a formal proposal …

Download Now
Cleaning Quote

Cleaning Quote

Introduction: Perfecting Cleaning Service Quotations Creating an effective cleaning service quotation is crucial in the cleaning business. It serves as …

Download Now