dear all

we would like to italic the word "peter" in column e

peter is good
peter is bad
he is peter


pet is animal

the result will be

peter is good
peter is bad
he is peter
pet is animal

the vba code dont run , what wrong...? pls help

Sub testz()
For i = 1 To 100
pos = InStr(Range("e(i)").Value, "peter")

With Range("e(i)").Characters(Start:=pos, Length:=5).Font
.FontStyle = "Italic"

End With
Next
End Sub

Thanks
Tom

oh the answer is as follows. the problems solved

Sub testz()
For i = 1 To 100
pos = InStr(Range("e"&a).Value, "peter")

With Range("e"&a).Characters(Start:=pos, Length:=5).Font
.FontStyle = "Italic"

End With
Next a
End Sub