Hi,

This routine will search the current selection for the specified text.

Sub MakeEntryBold()
Dim objCell As Range
Dim strSubString As String
Dim intPos As Integer
strSubString = _
InputBox("Enter text to make bold", "Make Entry Bold")
If strSubString < "" Then
For Each objCell In Selection
intPos = InStr(objCell.Value, strSubString)
If intPos 0 Then
objCell.Characters(intPos, Len(strSubString)) _
..Font.Bold = True
End If
Next
End If
End Sub


Need Help wrote:

I am trying to create a macro that searches a column for specified text and Bolds or Highlights all instances.

This is easy in Word but I couldn't find the feature in EXCEL.

Thanks.

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Hi Andy

i stand corrected - thanks, very useful bit of code

cheers
JulieD
"Andy Pope" wrote in message
...
Hi,

This routine will search the current selection for the specified text.

Sub MakeEntryBold()
Dim objCell As Range
Dim strSubString As String
Dim intPos As Integer
strSubString = _
InputBox("Enter text to make bold", "Make Entry Bold")
If strSubString < "" Then
For Each objCell In Selection
intPos = InStr(objCell.Value, strSubString)
If intPos 0 Then
objCell.Characters(intPos, Len(strSubString)) _
.Font.Bold = True
End If
Next
End If
End Sub


Need Help wrote:

I am trying to create a macro that searches a column for specified text
and Bolds or Highlights all instances.

This is easy in Word but I couldn't find the feature in EXCEL.

Thanks.

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info