How about something like this?

Sub testing()
Dim lastChars As String
myValue = 12345

ActiveCell.Value = "Text String " & myValue & " mm"
'Assume that mm are the last character
lastChars = Right(ActiveCell.Value, 2)
Debug.Print lastChar
If lastChars = "mm" Then
With ActiveCell.Characters(Start:=Len(ActiveCell.Value) - 1,
Length:=1).Font
.Name = "Symbol"
.FontStyle = "Regular"
.Size = 12
End With
End If
End Sub

HTH,
Barb Reinhardt

"Stopher" wrote:

Hi All,

How do i add a symbol to text string?

I have something like:

Text_String = " Text" & Variable & " um"

but what i want is the u in the um above to be the micron symbol
(.font = "Symbol") on m

I was thinking something like:

Text_String = " Text" & Variable & len("m").font = "Symbol" & "m"

or something like that, with formating the m in the text string
itself.

Any ideas?

Stopher