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