Hi

I have managed to put this code together thanks
to "Pearson Software " websight but does anyone have
an idea on how I can add a (.) *thats period, after the first upper
case.

J. Smith




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


thanks in advance
Graham

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!