Hi again,

Am Fri, 15 May 2015 14:59:03 +0200 schrieb Claus Busch:

For i = 1 To Len(rngC)
If LCase(Mid(rngC, i, 1)) < _
LCase(Mid(rngC.Offset(, 1), i, 1)) Then
myComp = IIf(Asc(LCase(Mid(rngC, i, 1))) < _
Asc(LCase(Mid(rngC.Offset(, 1), i, 1))), True, False)
Exit For
End If
Next

sorry but now rngC is wrong.

Try:

Function myComp(myRng As Range) As Boolean
Dim i As Long

For i = 1 To Len(myRng)
If LCase(Mid(myRng, i, 1)) < _
LCase(Mid(myRng.Offset(, 1), i, 1)) Then
myComp = IIf(Asc(LCase(Mid(myRng, i, 1))) < _
Asc(LCase(Mid(myRng.Offset(, 1), i, 1))), True, False)
Exit For
End If
Next

End Function


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional