Cosmetics Capitals
 

Just for cosmetic purposes is there anyway to set the input on a cell so that
no matter how something is entered it shows as a capital.

Cosmetics Capitals
 

Sorry, I meant Worksheet_Change event.


--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"Arlene" wrote:

Just for cosmetic purposes is there anyway to set the input on a cell so that
no matter how something is entered it shows as a capital.

Cosmetics Capitals
 

You would need a Selection_Change event in VBA to capture that. Search the NG
for code, it's often posted.


--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"Arlene" wrote:

Just for cosmetic purposes is there anyway to set the input on a cell so that
no matter how something is entered it shows as a capital.

Cosmetics Capitals
 

"Cosmetics"

All caps would look horrible to me and make things hard to read but....

This event code will do the trick.

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

Works on columns A:H........change the 8 to whatever you wish.

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

Copy/paste the code into that sheet module.

Close the VBE and save the workbook.


Gord Dibben MS Excel MVP

On Thu, 12 Jul 2007 15:18:01 -0700, Arlene
wrote:

Just for cosmetic purposes is there anyway to set the input on a cell so that
no matter how something is entered it shows as a capital.

Cosmetics Capitals
 

Thanks Gord; the all caps is for a specific input cell, the thing described
is done with caps. Thanks for the problem solve, I really did not think it
could be done.

"Gord Dibben" wrote:

"Cosmetics"

All caps would look horrible to me and make things hard to read but....

This event code will do the trick.

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

Works on columns A:H........change the 8 to whatever you wish.

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

Copy/paste the code into that sheet module.

Close the VBE and save the workbook.


Gord Dibben MS Excel MVP

On Thu, 12 Jul 2007 15:18:01 -0700, Arlene
wrote:

Just for cosmetic purposes is there anyway to set the input on a cell so that
no matter how something is entered it shows as a capital.