Here is one way.

Set rng = Sheets("Sheet1).Range("A1")
If Not IsNumeric(rng) Then
rng.Copy Sheets("Sheet2").Range("A2")
End If


"JOSEPH WEBER" wrote in message
...
I want to do an if statement within a macro that will copy and paste to
another cell, a field that is text. Anything numerical should be skipped.
How
do I do this?