From: sebastico on

Jacob
Many thanks
Your code works great
"Jacob Skaria" wrote:

> Try
>
> Sub Macro()
> Dim cell As Range
> For Each cell In Range("A1:A10")
> If Not cell.HasFormula Then cell.Value = UCase(cell.Value)
> Next
> End Sub
>
> --
> Jacob
>
>
> "Shawn" wrote:
>
> > I need a code that will search a range (say, A1:A10) and convert everything
> > in that range to all caps?
> > --
> > Thanks
> > Shawn