On Jun 1, 12:13*pm, Claus Busch wrote:
Hi Pete,

Am Wed, 1 Jun 2011 08:25:16 -0700 (PDT) schrieb Pete:

Is there a way to tell if a value in a cell has been treated with the
=TEXT formula, and then pasted back as values?

for TEXT formula in range("C1:C10"):
Sub TextFormula()
Dim rngCell As Range

For Each rngCell In Range("C1:C10")
With rngCell
* * If Left(.Formula, 5) = "=TEXT" Then
* * * * .Value = .Value
* * End If
End With
Next
End Sub

Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Thank you both joeu2004 and Claus.

Pete