View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Pete[_7_] Pete[_7_] is offline
external usenet poster
 
Posts: 13
Default Has =TEXT(. . .,0) been applied?

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