Ahh.. this makes sense... I will try it and see how it works.. Thx VERY
much. ! :)
Chet

wrote:
Chet,
AH! it seems your cells that start with = do really contain formulae.
I had assumed there was a quote before the = to make them strings. In
which case try this.

Sub REMOVE_INVALID_DATA_PHX_DOWNLOAD()
Dim Target As String

MaxRow = ActiveSheet.Range("A65536").End(xlUp).Row

For rowy = 2 To MaxRow
Target = Cells(rowy, 11).Formula
If Left(Target, 1) = "=" Then
Cells(rowy, 11) = Mid(Target, 2)
End If
Next rowy


End Sub

Cath