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
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
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.


Cube Root Practice Sheet

Cube Root Practice Sheet

Cube Root Practice Sheet is a simple Template that helps the students to learn cube roots of given whole numbers …

Download Now

MCQ Test checking sheet

MCQ Test Checking Sheet is an excel sheet which enables you to check the MCQ Test in less than an …

Download Now

MCQ Test Sheet

MCQ Test Sheet is a ready template to conduct an MCQ Test with ease and swiftness. Conduct a test and …

Download Now

Checkbook in Register

Checkbook in Register Template is a ready-to-use template in Excel to track and reconcile your personal or business bank accounts. …

Download Now

Depreciation Calculator template

Depreciation Calculator is an excel template to calculate Straight-Line as well as Diminishing Balance Depreciation on Tangible/Fixed Assets. The template …

Download Now

Stock Inventory Management

These stock inventory management templates keep track of products purchased and sold by a business. It also contains information such …

Download Now