Right click on sheet tab, view code.
Paste this in, and run:

Sub UpperCase()
For Each c In Me.UsedRange
c.Formula = UCase(c.Formula)
Next
End Sub



--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"Fred Asp" wrote:

Hi there

I have a file with names and adresses in different colums. They HAVE
different formats LIKE this...is it possible to tranform all text to
BLOCKLETTERS for example?

Fred