1) §´ýÖçµ

2) §Ó´ýÖçµ

i have two words in the column in one cell either first come or the second word

if first word come change that cell font to times new roman
if second word come change to arial font how?

only we have find "Ó" letter in cell change the font

=if(find("Ó",a1,1)>0,With ActiveCell.Characters(Start:=1, Length:=end).Font
.Name = "Times new roman"
End With, (else),With ActiveCell.Characters(Start:=1, Length:=end).Font
.Name = "arial")