I use MS Excel 2003. Microsoft should update the Excel program to include
the same ability Format-UPPERCASE that is built into MS Word 2003. A user
should simply have the ability to highlight the selected cells and then
Format-UPPERCASE and then all text within the cells should uppercase.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc

There is a formula to transfer lowercase items in uppercase. Use
=UPPERCASE("Celladres which contains lowercase")

--
www.wolters.100.nl

"Ron Lehr" <Ron schreef in bericht
...
I use MS Excel 2003. Microsoft should update the Excel program to include
the same ability Format-UPPERCASE that is built into MS Word 2003. A
user
should simply have the ability to highlight the selected cells and then
Format-UPPERCASE and then all text within the cells should uppercase.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc

The function is UPPER, and it only applies to a single cell, not all, so it
has to copied across

To upshift it all needs code.

--
HTH

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


"JMP" wrote in message
el.net...
There is a formula to transfer lowercase items in uppercase. Use
=UPPERCASE("Celladres which contains lowercase")

--
www.wolters.100.nl

"Ron Lehr" <Ron schreef in bericht
...
I use MS Excel 2003. Microsoft should update the Excel program to
include
the same ability Format-UPPERCASE that is built into MS Word 2003. A
user
should simply have the ability to highlight the selected cells and then
Format-UPPERCASE and then all text within the cells should uppercase.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the
"I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and
then
click "I Agree" in the message pane.


http://www.microsoft.com/office/comm...lic.excel.misc

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul

Ron,

Might as well give you a Proper Case macro while I'm at it. (Code is a
little different because there's no such syntax as PCase$.)


Sub ProperCase()
For Each c In Selection.Cells
c.Value = StrConv(c.Value, vbProperCase)
Next c


Paul

Oops... Forgot the "End Sub". Here's correct code.

Sub ProperCase()
For Each c In Selection.Cells
c.Value = StrConv(c.Value, vbProperCase)
Next c
End Sub

Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul

Add

Dim C as Range

to the top of each procedure, like:

Sub UpCase( )
Dim C as Range
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub

Samad wrote:

Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul



--

Dave Peterson

Samad

Would like to point out that these macros will also convert any formulas in the
range to values only.

Might not be what you want.

I prefer C.Value = UCase$(C.Formula)


Gord Dibben MS Excel MVP

On Tue, 23 Jan 2007 22:51:01 -0800, Samad
wrote:

Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul

Hi Samad,
here is the correction you asked for plus the correction that
Gord suggested. You can apply the same change to the
other macros. for proper you woud use
c.formula = application.proper(c.formuila)

Sub UpCase( )
dim c as range
For Each c In Selection.Cells
c.formula = UCase$(c.formula)
Next c
End Sub

If you want such macros to run a lot faster when you
select ranges involving entire columns or any other
range, see my page
http://www.mvps.org/dmcritchie/excel/proper.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Samad" wrote in message ...
Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul

Thanks Dave, Gord & David

Such a great kind of service you are doing.

Thanks a lot

"Samad" wrote:

Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul