Hi RosH,
Well if you add this to your procedure that would be best. Tr
something like

Sub BoldFirstChar()
Dim test$, cell As Range

test = "One" 'This value would be the output of your function
Set cell = Range("B1")
cell.Value = test
With cell.Characters(Start:=1, Length:=1).Font
.FontStyle = "Bold"
End With
End Sub

Hope this helps,

Jaso

--
jt
-----------------------------------------------------------------------
jtp's Profile: http://www.excelforum.com/member.php...fo&userid=2113
View this thread: http://www.excelforum.com/showthread.php?threadid=49601