Sub Upshift()
Dim cell As Range
For Each cell In Activsheet.UsedRange
If Not cell.HasFormula Then
cell.Value = UCase(cell.value)
End If
Next cell
End Sub

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Brian Denny" <Brian wrote in message
...
Does anyone know an easy way, or any way to change the entire spreadsheet
to
upper case lettering?