Is there anyway to for a column to use 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" <(E-Mail Removed)>
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:(E-Mail Removed)...
> 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" <(E-Mail Removed)>
> wrote:
>
>>Is there anyway to for a column to use Title Capitalization?
>

I've been away.

If you're still waiting.................

Right-click on the sheet tab and "View Code".

Copy/paste the code into that sheet module.

Adjust If Target.Column <> 1 Then Exit Sub to <> 2

Alt + q to return to Excel.


Gord


On Tue, 9 Mar 2010 14:45:49 -0500, "John Persico" <(E-Mail Removed)>
wrote:

>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.