Sub checknexttolastchar()
For Each c In Selection
Select Case LCase(Left(Right(c, 2), 1))
Case Is = "n": lc = ""
Case Is = "o": lc = "u"
Case Else: lc = Right(c, 1)
End Select
c.value = Left(c, Len(c) - 1) & lc
Next
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Vatos" wrote in message
...
i have the first name o people in a row of names, and i want a type to
check
if the second to last letter is "η" then write the name without the last
character , if the second to last letter is "ο" then write the name with
the
last character changed to "υ" and if the last letter is different of the 2
above then leave the name as is....