You could run a macro like the following to do that:
Sub UpperCase()
For Each oCell In ActiveSheet.UsedRange
oCell.Formula = UCase(oCell.Formula)
Next oCell
End Sub
NOTE: This preserves any formulae on the worksheet, whereas changing:
oCell.Formula = UCase(oCell.Formula)
to:
oCell.Value = UCase(oCell.Value)
would convert any formula to their results (in upper case)
Cheers