When I import a table from another program into Excel, the blank cells in the
original program look blank, but Excel imports them as text. I need help
writing a macro that will identify the cells that contain text and delete
their contents.

Enter:


Sub textclear()
' gsnu
Dim r As Range
For Each r In Selection
If r.Application.IsNumber(r.Value) Then
Else
r.Value = ""
End If
Next
End Sub

Select an area of the worksheet and run the macro.
--
Gary's Student


"GVT" wrote:

When I import a table from another program into Excel, the blank cells in the
original program look blank, but Excel imports them as text. I need help
writing a macro that will identify the cells that contain text and delete
their contents.

Use Dave McRitchies Trimall macro, and it will do a lot more besides:-

http://www.mvps.org/dmcritchie/excel/join.htm#trimall

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

------------------------------*------------------------------*----------------
It's easier to beg forgiveness than ask permission :-)
------------------------------*------------------------------*----------------


"GVT" wrote in message
...
When I import a table from another program into Excel, the blank cells in
the
original program look blank, but Excel imports them as text. I need help
writing a macro that will identify the cells that contain text and delete
their contents.