Adding a micron symbol to text string
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
|