Auto Proper Case on Entry

John, try,
..Value = Application.Proper(Target.Value)

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"John" <[email protected]> wrote in message
news:[email protected]...
> I wish to change the values entered within an area to PROPER case on
entry.
> I have the following code which I use to automatically change all entered
> values to UPPER
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> With Target
> If .Count = 1 Then
> If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
> Application.EnableEvents = False
> .Value = UCase(.Value)
> Application.EnableEvents = True
> End If
> End If
> End With
> End Sub
>
> I thought it was a 'simple' case of just changing the text UCase to
> something like ProperCase or PCase, but it doesn't work.
>
> Can someone help?
>
> Thanks
>
>
>

Thanks Paul works a treat


"Paul B" <[email protected]> wrote in message
news:[email protected]...
> John, try,
> .Value = Application.Proper(Target.Value)
>
> --
> Paul B
> Always backup your data before trying something new
> Please post any response to the newsgroups so others can benefit from it
> Feedback on answers is always appreciated!
> Using Excel 2002 & 2003
>
> "John" <[email protected]> wrote in message
> news:[email protected]...
>> I wish to change the values entered within an area to PROPER case on
> entry.
>> I have the following code which I use to automatically change all entered
>> values to UPPER
>>
>> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
>> With Target
>> If .Count = 1 Then
>> If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
>> Application.EnableEvents = False
>> .Value = UCase(.Value)
>> Application.EnableEvents = True
>> End If
>> End If
>> End With
>> End Sub
>>
>> I thought it was a 'simple' case of just changing the text UCase to
>> something like ProperCase or PCase, but it doesn't work.
>>
>> Can someone help?
>>
>> Thanks
>>
>>
>>
>
>

Your Welcome

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"John" <[email protected]> wrote in message
news:[email protected]...
> Thanks Paul works a treat
>
>
> "Paul B" <[email protected]> wrote in message
> news:[email protected]...
> > John, try,
> > .Value = Application.Proper(Target.Value)
> >
> > --
> > Paul B
> > Always backup your data before trying something new
> > Please post any response to the newsgroups so others can benefit from it
> > Feedback on answers is always appreciated!
> > Using Excel 2002 & 2003
> >
> > "John" <[email protected]> wrote in message
> > news:[email protected]...
> >> I wish to change the values entered within an area to PROPER case on
> > entry.
> >> I have the following code which I use to automatically change all
entered
> >> values to UPPER
> >>
> >> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> >> With Target
> >> If .Count = 1 Then
> >> If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
> >> Application.EnableEvents = False
> >> .Value = UCase(.Value)
> >> Application.EnableEvents = True
> >> End If
> >> End If
> >> End With
> >> End Sub
> >>
> >> I thought it was a 'simple' case of just changing the text UCase to
> >> something like ProperCase or PCase, but it doesn't work.
> >>
> >> Can someone help?
> >>
> >> Thanks
> >>
> >>
> >>
> >
> >
>
>

You can also make your macro more generic by using Selection
instead of a specific cell range.
http://www.mvps.org/dmcritchie/excel/proper.htm#upper
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"John" <[email protected]> wrote in message news:[email protected]...
> Thanks Paul works a treat
>
>
> "Paul B" <[email protected]> wrote in message
> news:[email protected]...
> > John, try,
> > .Value = Application.Proper(Target.Value)
> >
> > --
> > Paul B
> > Always backup your data before trying something new
> > Please post any response to the newsgroups so others can benefit from it
> > Feedback on answers is always appreciated!
> > Using Excel 2002 & 2003
> >
> > "John" <[email protected]> wrote in message
> > news:[email protected]...
> >> I wish to change the values entered within an area to PROPER case on
> > entry.
> >> I have the following code which I use to automatically change all entered
> >> values to UPPER
> >>
> >> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> >> With Target
> >> If .Count = 1 Then
> >> If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
> >> Application.EnableEvents = False
> >> .Value = UCase(.Value)
> >> Application.EnableEvents = True
> >> End If
> >> End If
> >> End With
> >> End Sub
> >>
> >> I thought it was a 'simple' case of just changing the text UCase to
> >> something like ProperCase or PCase, but it doesn't work.
> >>
> >> Can someone help?
> >>
> >> Thanks
> >>
> >>
> >>
> >
> >
>
>

I wish to change the values entered within an area to PROPER case on entry.
I have the following code which I use to automatically change all entered
values to UPPER

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count = 1 Then
If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
Application.EnableEvents = False
.Value = UCase(.Value)
Application.EnableEvents = True
End If
End If
End With
End Sub

I thought it was a 'simple' case of just changing the text UCase to
something like ProperCase or PCase, but it doesn't work.

Can someone help?

Thanks

John, try,
..Value = Application.Proper(Target.Value)

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"John" <[email protected]> wrote in message
news:[email protected]...
> I wish to change the values entered within an area to PROPER case on
entry.
> I have the following code which I use to automatically change all entered
> values to UPPER
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> With Target
> If .Count = 1 Then
> If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
> Application.EnableEvents = False
> .Value = UCase(.Value)
> Application.EnableEvents = True
> End If
> End If
> End With
> End Sub
>
> I thought it was a 'simple' case of just changing the text UCase to
> something like ProperCase or PCase, but it doesn't work.
>
> Can someone help?
>
> Thanks
>
>
>

Thanks Paul works a treat


"Paul B" <[email protected]> wrote in message
news:[email protected]...
> John, try,
> .Value = Application.Proper(Target.Value)
>
> --
> Paul B
> Always backup your data before trying something new
> Please post any response to the newsgroups so others can benefit from it
> Feedback on answers is always appreciated!
> Using Excel 2002 & 2003
>
> "John" <[email protected]> wrote in message
> news:[email protected]...
>> I wish to change the values entered within an area to PROPER case on
> entry.
>> I have the following code which I use to automatically change all entered
>> values to UPPER
>>
>> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
>> With Target
>> If .Count = 1 Then
>> If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
>> Application.EnableEvents = False
>> .Value = UCase(.Value)
>> Application.EnableEvents = True
>> End If
>> End If
>> End With
>> End Sub
>>
>> I thought it was a 'simple' case of just changing the text UCase to
>> something like ProperCase or PCase, but it doesn't work.
>>
>> Can someone help?
>>
>> Thanks
>>
>>
>>
>
>

Your Welcome

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"John" <[email protected]> wrote in message
news:[email protected]...
> Thanks Paul works a treat
>
>
> "Paul B" <[email protected]> wrote in message
> news:[email protected]...
> > John, try,
> > .Value = Application.Proper(Target.Value)
> >
> > --
> > Paul B
> > Always backup your data before trying something new
> > Please post any response to the newsgroups so others can benefit from it
> > Feedback on answers is always appreciated!
> > Using Excel 2002 & 2003
> >
> > "John" <[email protected]> wrote in message
> > news:[email protected]...
> >> I wish to change the values entered within an area to PROPER case on
> > entry.
> >> I have the following code which I use to automatically change all
entered
> >> values to UPPER
> >>
> >> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> >> With Target
> >> If .Count = 1 Then
> >> If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
> >> Application.EnableEvents = False
> >> .Value = UCase(.Value)
> >> Application.EnableEvents = True
> >> End If
> >> End If
> >> End With
> >> End Sub
> >>
> >> I thought it was a 'simple' case of just changing the text UCase to
> >> something like ProperCase or PCase, but it doesn't work.
> >>
> >> Can someone help?
> >>
> >> Thanks
> >>
> >>
> >>
> >
> >
>
>

You can also make your macro more generic by using Selection
instead of a specific cell range.
http://www.mvps.org/dmcritchie/excel/proper.htm#upper
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"John" <[email protected]> wrote in message news:[email protected]...
> Thanks Paul works a treat
>
>
> "Paul B" <[email protected]> wrote in message
> news:[email protected]...
> > John, try,
> > .Value = Application.Proper(Target.Value)
> >
> > --
> > Paul B
> > Always backup your data before trying something new
> > Please post any response to the newsgroups so others can benefit from it
> > Feedback on answers is always appreciated!
> > Using Excel 2002 & 2003
> >
> > "John" <[email protected]> wrote in message
> > news:[email protected]...
> >> I wish to change the values entered within an area to PROPER case on
> > entry.
> >> I have the following code which I use to automatically change all entered
> >> values to UPPER
> >>
> >> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> >> With Target
> >> If .Count = 1 Then
> >> If Not Intersect(.Cells, Range("C16:F16")) Is Nothing Then
> >> Application.EnableEvents = False
> >> .Value = UCase(.Value)
> >> Application.EnableEvents = True
> >> End If
> >> End If
> >> End With
> >> End Sub
> >>
> >> I thought it was a 'simple' case of just changing the text UCase to
> >> something like ProperCase or PCase, but it doesn't work.
> >>
> >> Can someone help?
> >>
> >> Thanks
> >>
> >>
> >>
> >
> >
>
>