Sub MakeUpperCase()
Dim cell As Range

For Each cell in Activesheet.Usedrange.Cells

cell.Value = UCase(cell.Value)
Next cell
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Junderwood57" wrote in message
...
Within my sheet, there are cells with lower case and cells with upper and
I
would like to convert all to UPPER case, could someone please let me know
how
this is done?
THanks!