Sub UppercaseAll()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants,
xlTextValues)
Rng.Value = UCase(Rng.Text)
Next Rng
End Sub

"smithrdsr" wrote:

How to change data by column or comlete spreadsheet from lower case to upper
case by column.