You want it done as you enter the letters?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column 2 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub

As written Works on column A:B only.

This is event code. Right-click on the sheet tab and "View Code".

Copy/paste the code into that sheet module.


Gord Dibben MS Excel MVP

On Thu, 11 Oct 2007 04:22:01 -0700, thalia
wrote:

Please help me to turn normal letters into CAPITALS automatically, in an
excel sheet. Thank you very much!