Greetings,

Please excuse the cross posting, I wasn't sure if this is a
programming, a function or a misc question.

Is there any way to get a cell to change the input to uppercase?

If so, how many ways are there?

TIA

-Minitman

The obvious way

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:H10")) Is Nothing Then
With Target
.Value = UCase(.Value)
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

worksheet code module.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Minitman" wrote in message
...
Greetings,

Please excuse the cross posting, I wasn't sure if this is a
programming, a function or a misc question.

Is there any way to get a cell to change the input to uppercase?

If so, how many ways are there?

TIA

-Minitman

There is no need for the cross posting, and I think that is borne
out in your apology that it was unnecessary. Same people in
all these groups. If you want more than one solution you simply
mention that, which you did.

See http://www.mvps.org/dmcritchie/excel/proper.htm#upper

for worksheet and for programming solutions both macro and event macro.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Minitman" wrote in message ...
Greetings,

Please excuse the cross posting, I wasn't sure if this is a
programming, a function or a misc question.

Is there any way to get a cell to change the input to uppercase?

If so, how many ways are there?

TIA

-Minitman

in xl
=UPPER(A1)

in vba
range("A1").Value = UCase(range("A1").Value)

-----Original Message-----
Greetings,

Please excuse the cross posting, I wasn't sure if this
is a
programming, a function or a misc question.

Is there any way to get a cell to change the input to
uppercase?

If so, how many ways are there?

TIA

-Minitman
.

Thanks Guys,

That helps.

-Minitman



On Thu, 29 Apr 2004 17:28:39 +0100, "Bob Phillips"
wrote:

The obvious way

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:H10")) Is Nothing Then
With Target
.Value = UCase(.Value)
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

worksheet code module.