Try:

Sub textit()
For Each r In Selection
r.NumberFormat = "@"
Next
End Sub

--
Gary''s Student - gsnu200735


"Scottie" wrote:

I have a macro that will convert a range from a combination of formats to all
numbers. What I want is something that goes the other way, to text. I don't
want to have to insert and asterisk before the cell contents to designate
such.
THX