HI

Is it possible to program a cell in Excel to convert lowercase letters
to capital letters? Ex.: I type 'e' in a cell and upon pressing enter
it changes to 'E'. If I type 'E' in the cell nothing should happen. If
I type 'Ee' it should change to 'EE'.

Thanks in advance

Henrik

If you only want this to happen for one particular cell (say A1), this
should work. Right-click on the sheet's tab, select View Code, and paste
this code in there. Change $A$1 to the address of the cell you want. James

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
Application.EnableEvents = True
End If
End Sub


wrote in message
...
HI

Is it possible to program a cell in Excel to convert lowercase letters
to capital letters? Ex.: I type 'e' in a cell and upon pressing enter
it changes to 'E'. If I type 'E' in the cell nothing should happen. If
I type 'Ee' it should change to 'EE'.

Thanks in advance

Henrik

You could,

Right click the sheet tab, view code and paste this in. Change the range to
suit your needs:-

Private Sub Worksheet_Change(ByVal Target As Range)
Const sheet_Range As String = "A1:A100" '<== change to suit
On Error GoTo ws_exit
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(sheet_Range)) Is Nothing Then
Target.Value = UCase(Target.Value)
End If
ws_exit:
Application.EnableEvents = True
End Sub

Mike

" wrote:

HI

Is it possible to program a cell in Excel to convert lowercase letters
to capital letters? Ex.: I type 'e' in a cell and upon pressing enter
it changes to 'E'. If I type 'E' in the cell nothing should happen. If
I type 'Ee' it should change to 'EE'.

Thanks in advance

Henrik