P
PJohnson
I have a function that transposes names.
Let's say for example that it is:
Smith Jr., James
It works fine but I would like to format (Make Bold and REd) the text in the
resultant cell if it meets a particular condition. I cannot figure out why
this does not work. The function works fine and returns the correct results
but does not format the text if the condition is met.
Any help appreciated...
- - - - - - - - - -- - - - - -
Public Function TransName(MyText) As String
Dim LName, FName As String
Dim Comma, Legnth, JrSuff As Byte
Length = Len(MyText)
Comma = InStr(1, MyText, ",")
Length = Length - Comma
JrSuff = InStr(1, MyText, "Jr")
'Debug.Print JrSuff
LName = Left(MyText, Comma - 1)
FName = Right(MyText, Length)
TransName = FName & " " & LName
TransName = Trim(TransName)
'==== THE FOLLOWING DOES NOT WORK=====
If JrSuff >= 1 Then
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
End If
'========================================
End Function
Let's say for example that it is:
Smith Jr., James
It works fine but I would like to format (Make Bold and REd) the text in the
resultant cell if it meets a particular condition. I cannot figure out why
this does not work. The function works fine and returns the correct results
but does not format the text if the condition is met.
Any help appreciated...
- - - - - - - - - -- - - - - -
Public Function TransName(MyText) As String
Dim LName, FName As String
Dim Comma, Legnth, JrSuff As Byte
Length = Len(MyText)
Comma = InStr(1, MyText, ",")
Length = Length - Comma
JrSuff = InStr(1, MyText, "Jr")
'Debug.Print JrSuff
LName = Left(MyText, Comma - 1)
FName = Right(MyText, Length)
TransName = FName & " " & LName
TransName = Trim(TransName)
'==== THE FOLLOWING DOES NOT WORK=====
If JrSuff >= 1 Then
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
End If
'========================================
End Function