Excel Macro code to Highlight Specific Text

Home
Macros Code
Formatting macros Codes
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:

Open the Excel spreadsheet where you want to use the macro code.
Press “Alt + F11” to open the VBA developer window.
In the VBA developer window, click the “Insert” menu and select “Module” to create a new module.
Paste the VBA macro code into the module window.
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.