ProperCase problem

Giganews Newsgroups
Subject: ProperCase problem
Posted by:  ditchy (ditc…
Date: 5 Oct 2003

Hi there Excelers
I have a problem that I am unable to fix, is there someone that can
help me. Just learning VBA and have some trouble with the following

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
    Target(1).Value = vbProperCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

The vbproperCase gets highlighted and a message, Compile Error,
Expected Array
Also should this be put in sheet1, or this workbook.
Any assistance would be greatly appreciated
DITCHY, Ballarat Australia