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)

 

[Minitman]

Thanks Guys,

That helps.

-Minitman