Pinda, this should work, do not change the name of the sub, only change the
cell ref.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Error_handler
'change to the cell or cells you want below
If Not Intersect(Range("A1,B1"), Target) Is Nothing Then
With Target
If Not .HasFormula Then
Application.EnableEvents = False
.Value = UCase(Left(.Value, 1)) & Right(.Value,
Len(.Value) - 1)
End If
End With
End If
Error_handler:
Resume Next
Application.EnableEvents = True
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **