Event Code for Proper

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello from Steve Dee

I have in Cell J2 the Value SWANSON DEPOT

If I put in another cell =PROPER(J2) it will change it to Swanson Depot.

My question please is it possible to do an event Code please.

Thankyou.
 
Steve

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


Gord Dibben MS Excel MVP
 
Hello Gord

Thankyou.

Gord Dibben said:
Steve

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


Gord Dibben MS Excel MVP
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

If I use 10 macro is ok but if I use 10: Auckland City Depot it is 3
Email Upgraded from Office 2000 to Office 2007 2
How to tell the macro to use contacts as the email address please. 1
To named Sheets 4
Turn off Security Alert dailog box for office 2007 10
Create 2nd, 3rd , 4th worksheet and so on 2
For Ron Bruin Please 6
IF , Then 4

Back
Top