Right click sheet tabview codeinsert thismodify to suit your rangeSAVE
workbook.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target.Range("j1:j21")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Clark" wrote in message
...
My boss has a large (very large) spreadsheet that contains lower case
characters for serial numbers, mixed lower case and numbers (0-9). She is
looking for a way to type lower case letters into Excel and them have them
automatically changed to upper case without disturbing the numbers. Is
there
any formula to do this? Example: Cell A1 contains the serial number
"a1b9ced"
she want to type this lower case and when she hits enter it is
automaticall
converted to the upper case "A1B2CED". Can this be done?
--
Clark