Convert to Upper and Lower case

For R = 2 To 1717
Name = Cells(R, 19)
P = Asc(Left(Name, 1))
If P > 96Then                         ‘ 97 IS LOWERCASE a
P = P – 32
NEWNAME = Chr(P)
Else
NEWNAME = Chr(P)
End If
‘ NOW CONVERT THE REST OF THE NAME TO LOWER CASE
For x = 2 To Len(Name)
c = Asc(Mid(Name, x, 1))
If c < 91 Then             ’90 IS UPPERCASE Z
c = c + 32
End If
NEWNAME = NEWNAME & Chr(c)
Next x
Cells(R, 19) = NEWNAME
Next R

Leave a Reply