Changing lower case to upper case

Hi, is there a way to enter lower case text into a cell,
say A1, and upon exiting that cell the text automatically
reverts to upper case?

If this is not possible, is there a way to change the cell
to upper case by inserting VB code into command button
macro?

Cheers,
D

In the module for the worksheet you want to run this code in, enter the
following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value "" Then Target.Value = UCase(Target.Value)
End Sub

--

Olly


Dazza wrote:
*Hi, is there a way to enter lower case text into a cell,
say A1, and upon exiting that cell the text automatically
reverts to upper case?

If this is not possible, is there a way to change the cell
to upper case by inserting VB code into command button
macro?

Cheers,
D *


---
Message posted from http://www.ExcelForum.com/

Hi Dazza!

See Dave McRitchie's post at:

http://tinyurl.com/ywdlq

It provides details of the required code and links that will assist
you in inserting it into your workbook.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Hi thanks for the help. I have placed this code in the
worksheet midule as advised however I keep getting an
error. How do I limit the target to A14 to A54?
-----Original Message-----
In the module for the worksheet you want to run this code
in, enter the
following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value "" Then Target.Value = UCase
(Target.Value)
End Sub

--

Olly


Dazza wrote:
*Hi, is there a way to enter lower case text into a
cell,
say A1, and upon exiting that cell the text
automatically
reverts to upper case?

If this is not possible, is there a way to change the
cell
to upper case by inserting VB code into command button
macro?

Cheers,
D *


---
Message posted from http://www.ExcelForum.com/

.

Hi!

Use the following modification:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A14:A54")) Is Nothing Then Exit Sub
If Target.Value "" Then Target.Value = UCase(Target.Value)
End Sub

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia