Making Sheet all Upper Case
 

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!

Making Sheet all Upper Case
 

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!

Making Sheet all Upper Case
 

See here,
http://www.cpearson.com/excel/ChangingCase.aspx

Junderwood57 wrote:

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!

Making Sheet all Upper Case
 

Maybe

Sub stantial()
For Each c In ActiveSheet.UsedRange
If Not c.HasFormula Then
c.Value = UCase(c.Value)
End If
Next
End Sub

Mike

"Junderwood57" wrote:

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!