.. only need the sub to convert to all caps

For your needs, try this beauty by Gord Dibben ..

Sub Upper_Case()
'Gord Dibben .misc
Dim cell As Range
'rotate through all the cells and convert to upper case
For Each cell In Intersect(Selection, _
ActiveSheet.UsedRange)
cell.Value = UCase(cell.Value)
Next
End Sub

As to your problem:
.. right-click on autoshape - assign macro
Excel2000 doesn't say 'assign macro'

I don't know/have xl2000, so I'm not sure why, although the behaviour should
be similar.

Maybe try it again: After installing Gord's sub above, in Excel, draw say, a
rectangle on the sheet. Then just right-click on it. There should be an
option "Assign Macro". Choose this option, then select "Upper_Case" in the
dialog and click OK.
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"lilleke" wrote in message
...
Max -
I found this very helpful, however I only need the sub to convert to all
caps so I tried to eliminate the other stuff and did not work.

can you tweek the sub below to only convert to all caps and i would also
appreciate step by step how to assign macro to an auto shape or button.

you say right-click on autoshape - assign macro - Excel2000 doesn't say
'assign macro' after I right click say the 3-D box- also in Form tool
bar -
assign sub to a button - didn't let me customize a button - either one is
ok
- please give me step by step. I have done the button one years ago and no
longer have any books to refer to.
thanking you in advance.
--
claudia