[RESOLVED] Skip cells containing text [Excel]

[Ossewa]

Hi Guys,

My code have to run though a range of cells in Excel and multiply all values by a factor 0.6.
I need to skip all cells withing the range that contain words(text) or formulas.
My current code manages to skip cells formatted as text or that contains formulas, but not cells containing words and formatted as general.

mTextFormat = "@"
    For mRunner = 1 To mCell.Column - 1
        Set aCell = Cells(mCell.Row, mRunner)
            On Error GoTo SubErrHandler
                If aCell.Value = 0 Then
                    ElseIf aCell.NumberFormat = mTextFormat Then
                    ElseIf Left$(aCell.Formula, 1) = "=" Then '-- cell does not contain a formula
                    Else
                        aCell.Formula = "=" & aCell.Formula & "*" & mCell
                End If
SubErrHandler:
    Next

This leaves me with some cells as "#NAME?"

Please assist.