I've run in to a problem with the code. It converts entries such as ^001 to
1. I need it left at 001

Can I do anything?

Thanks


"John" wrote in message
...
Thats it Chip, it works, thanks for your assistance, I'm still very much
learning


"Chip Pearson" wrote in message
...
For Each r in Sheets("Template").Range("A9:C43").Value

This should be

For Each r in Sheets("Template").Range("A9:C43").Cells


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"kkknie " wrote in
message ...
I was afraid that wouldn't work. Should have tested (duh).

Modify to this:

Dim r as Range

For Each r in Sheets("Template").Range("A9:C43").Value
r.Value = UCase(r.Value)
Next

This will loop through the cells individually and should work.

K


---
Message posted from http://www.ExcelForum.com/