Macro for proper case

G

Guest

I am just learning the wonders of macros but wouldn't have a clue how to
write the code! If possible can somebody please write me a code to change
text from uppercase to proper case. I would really appreciate it. Thanks
 
B

Bob Phillips

Range("A1").Value = UCase(Range("A1").Value)

or

myVar = UCase(Range("A1").Value)

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)
 
G

Guest

This is relatively straightforward as there is a worksheet function available
=PROPER(text) so coding this in VBA just needs a slight modification:-

newText = Application.WorksheetFunction.Proper(ActiveCell.Text)
ActiveCell.Offset(0, 1) = newtext
 
G

Guest

Thank you all for your replies. Unfortunatley I am still having problems. I
pasted the codes (seperately) into the 'create macro' section, selected the
whole of my spreadsheet (as it is a mail merge doc all in uppercase) and
tried to run it but nothing happened. I am doing something really wrong?
Sorry but i really know nothing about macros. Please help! Thanks
 
D

David McRitchie

Hi Tania,
The code that BigWheel provided for a macro would convert only one cell,
which is more suitable for a Change Event macro and in any case is incomplete
as you need a SUB and End Sub statements which would be recognized by
someone more familiar with macros.. .
Suggest you look at my
http://www.mvps.org/dmcritchie/excel/preoper.htm

Even if you attempt to fix upon entry (Change event) you would still
need to change your existing entries. I normally would not bother
with the change event as I would normally change existing entries and
not input them incorrectly later.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top