Excel 2003 - Capitalisation question

[Belgarath75]

I was wondering if there is a way to set up a cell to format the text that is entered into it in the following way

The Cat Sat On The Mat

I know that there is the =PROPER(cell) function, but this seems to be to correct it after the event, and what i am trying to do is to force this to happen as users fill in the cells

Ideally i would like to find a way to do this without VBA's

Hope that makes sense

Belegarath75

[shg]

It can't be done without VBA. You could use data validation to require the user to enter data that way (=exact(A1, upper(a1))), but not to change it.

[MickG]

Look Here:-
http://www.cpearson.com/excel/ChangingCase.aspx

[Belgarath75]

My fears confirmed

I think this will be the way to go for my problem, from the link given

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then
        Exit Sub
    End If
    On Error GoTo ErrHandler:
    If Not Application.Intersect(Me.Range("A1:A10"), Target) Is Nothing Then
        If IsNumeric(Target.Value) = False Then
            Application.EnableEvents = False
            'Target.Value = StrConv(Target.Text, vbLowerCase)
            'Target.Value = StrConv(Target.Text, vbUpperCase)
            'Target.Value = StrConv(Target.Text, vbProperCase)
            Application.EnableEvents = True
        End If
    End If
ErrHandler:
    Application.EnableEvents = True
End Sub

Thanks to you both for the input, much appreciated