This macro will change all text within the selected cells to uppercase. It works only on selected cells within Microsoft Excel and it will work on ranges that include rows, columns, and both at the same time.
Sub Uppercase()
'This will make the text of any selection of cells uppercase.
For Each x In Selection
x.Value = UCase(x.Value)
Next
End Sub