Assuming the Range is A1:A20 then

Right Click the Sheet Tab and select "View Code"

Paste the following into the code window

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyCell As Range, MyRange As Range
Set MyRange = Me.Range("A1:A20")
For Each MyCell In MyRange
MyCell = UCase(MyCell)
Next
End Sub

Select File ....Close and return to Excel


"IJO" wrote:

I want to have a series of cells that, when I enter text, it is upshifted