Hey use this code..........
Sub SentenceCase()
For Each cell In Selection.Cells
s = cell.Value
Start = True
For i = 1 To Len(s)
ch = Mid(s, i, 1)
Select Case ch
Case "."
Start = True
Case "?"
Start = True
Case "a" To "z"
If Start Then ch = UCase(ch): Start = False
Case "A" To "Z"
If Start Then Start = False Else ch = LCase(ch)
End Select
Mid(s, i, 1) = ch
Next
cell.Value = s
Next
End Sub
Regards,
Rajesh kunder
_________________________________________________________________________________________________________
On Wed, Jun 24, 2009 at 1:40 PM, Subu <mail_to_s...@yahoo.com> wrote:
>
> Dear List members and XL Gurus
>
> I have an XL sheet with a column that looks something like
>
> Name_One
> nAme_two
> NAME_THREE
> name_four
> name_fIVe
> name SIX
> name sevEN
>
> ...and so on
>
>
> I wish to get them all with the first Character in upper case and the
> rest all in lower case
>
> I.e. something like
>
> Name_one
> Name_two
> Name_three
> Name_four
> Name_five
> Name six
> Name seven
>
>
> Thanks in advance
> Best regards
>
> Subu
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
