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


<(E-Mail Removed)> wrote in message
news:02560310-7f72-49ac-a4bc-(E-Mail Removed)...
> 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

"(E-Mail Removed)" 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
>