Adapt this to suit

Sub boldtext()
Set mr = Range("l1")
mr.Font.Bold = False
mr.Value = "Value1: " & 11111 & " Value 2: " & 22222222
p1 = InStr(mr, ":")
MsgBox p1
p2 = InStr(mr, " Value 2")
MsgBox p2
p3 = InStr(p2, mr, ":")
MsgBox p3
mr.Characters(1, p1).Font.Bold = True
mr.Characters(p2, p3 - p2 + 1).Font.Bold = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Ak Man" wrote in message
...
Can someone help me out with this:
Cells(i + 1, j).Value = " Value 1 :- " & Str1(k) & " Value 2 :- " &
Str2(k)
In this I want to have the texts "Value 1 :- " and " Value 2 :- " as Bold,
italic and with font as Tahoma (Just bold will also do)

--
Ak