Sub tester9()
Dim rng As Range
Set rng = Cells.SpecialCells(xlConstants, xlTextValues)
For Each cell In rng
cell.Value = StrConv(cell.Value, vbUpperCase)
Next

End Sub


--
Regards,
Tom Ogilvy



"scrabtree" wrote in message
...
I need to format cells so it will convert all text entry
to caps.