Change Cell Entry To Uppeercase

[Minitman]

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

 

[Bob Phillips]

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)

 

[David McRitchie]

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.

 

[Minitman]

Thanks Guys,

That helps.

-Minitman