Hi Julie, you can you know (Bold and colour them anyway - not change the pattern
partially though). :-)
This will prompt you for the string and then highlight all instances on the
activesheet.
Sub ColText()
Dim i As Long
Dim j As Integer
Dim k As Integer
Dim num As Long
Dim ans As String
Dim str As String
ans = InputBox("What string do you want to find")
i = Application.WorksheetFunction.CountIf(ActiveSheet. UsedRange, "*" & ans &
"*")
j = Len(ans)
Cells.Find(what:=ans, after:=ActiveCell, LookIn:=xlValues, lookat:= _
xlPart, MatchCase:=False).Activate
k = Application.WorksheetFunction.Find(ans, ActiveCell)
For num = 1 To i
With ActiveCell.Characters(Start:=k, Length:=j).Font
'THE COLORINDEX BIT WILL COLOUR IT RED AS WELL - DELETE OR
'COMMENT IT OUT IF YOU DON'T WANT IT
.ColorIndex = 3
.Bold = True
End With
Cells.FindNext(after:=ActiveCell).Activate
Next num
End Sub
--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03
----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------
"JulieD" wrote in message
...
Hi
have you tried format / conditional formatting - its easier that writing
macros - BTW (as far as i know) you can't bold or highlight parts of a cell
in excel, if that's what you're trying to achieve.
Cheers
JulieD
"Need Help" wrote in message
...
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.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.598 / Virus Database: 380 - Release Date: 28/02/2004