macro based on text or number

[JOSEPH WEBER]

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?

 

[JLGWhiz]

Here is one way.

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