How to change the first letter in Capital letter

E

Eric

Hi There,

Can anybody help me how to change the first letter of my
item description into a capital letter, in a macro, I have
more that 5000 item description that I have to be changed
the first letter into a Caps so that when I sort them it
will go together. It is time consuming to change it one
by one. Like company to Company, name to Name, etc.

Thanks for your help.

Eric
 
K

KJTFS

you can loop the data so it will fit your layout but I would use
something like

Dim strTemp As String

Dim i As Integer
i = 0
Do Until Trim(Range("A1").Offset(i, 0).Value) = ""
strTemp = Trim(Range("A1").Offset(i, 0).Value)
strTemp = Left(UCase(strTemp), 1) & Right(strTemp, Len(strTemp)
- 1)
Range("A1").Offset(i, 0).Value = strTemp
i = i + 1
Loop

Keith
www.kjtfs.com
 
Top