capitilze all cells on a workshhet?

here's one of my early attempts a writing a macro to do just what your asking. you need to select the area to convert to capitals.

Sub UpperCase()

Dim SelectedCells As Range
Dim ThisCell As Range

Application.Calculation = xlCalculationManual

If TypeName(Selection) <> "Range" Then Exit Sub 'make sure range is selected
Set SelectedCells = Selection

For Each ThisCell In SelectedCells 'cycle through & test cells
If Application.WorksheetFunction.IsText(ThisCell) Then
ThisCell = UCase(ThisCell)
End If

Next

Application.Calculation = xlCalculationAutomatic

End Sub

I'm sure there's a better way to do it (but what that way is, I don't know).
HTH