Thread: Title Capitalization

Either with a helper column and the PROPER function or VBA event code to
change in-cell when entered.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 1 Then Exit Sub 'adjust to suit
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = Application.Proper(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub


Gord Dibben MS Excel MVP

On Fri, 5 Mar 2010 10:15:25 -0500, "John Persico" <reply@newsgroup.com>
wrote:

>Is there anyway to for a column to use Title Capitalization?

The column that needs to be in Title Case is Column B.

Where do I enter the code?
I've never done anything with VBA.
Thanks for any help you can provide.

--


"Gord Dibben" <gorddibbATshawDOTca> wrote in message
news:jhb2p5pv5vu0q1tbhhmj50g6rs0l6fjvq5@4ax.com...
> Either with a helper column and the PROPER function or VBA event code to
> change in-cell when entered.
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> If Target.Column <> 1 Then Exit Sub 'adjust to suit
> On Error GoTo ErrHandler
> Application.EnableEvents = False
> Target.Formula = Application.Proper(Target.Formula)
> ErrHandler:
> Application.EnableEvents = True
> End Sub
>
>
> Gord Dibben MS Excel MVP
>
> On Fri, 5 Mar 2010 10:15:25 -0500, "John Persico" <reply@newsgroup.com>
> wrote:
>
>>Is there anyway to for a column to use Title Capitalization?
>