Evaluating Range for NULL or "" and replacing with .Clear

[VenturSum]

Programmers,

My imported dataset has null values.

Currently I loop through the columns and rows; and use this is code:

IF .CELL(lRow, lCol).Value = "" THEN .CELL(lRow,lCol).Clear

This method takes a long time.

Could the .Range &/or Evalute method be used?

Something like:
With Range("A1", "Z"&lRowLast)
.CLEAR IF ISNULL
End With

Any thoughts?

Respectfully,

John In Annapolis.

 

[VenturSum]

Team,

This method does NOT work when the cell format is set to text.
E.g. .NumberFormat = "@"

Using the "With Range" method above
is it possible to set .NumberFormat = "General" when .Value = ""

Respectfully,

John In Annapolis, MD

 

[Fluff]

Learned something new.
Not sure how to get round that other than the loop you started with

 

[Rick Rothstein]

This method does NOT work when the cell format is set to text.
E.g. .NumberFormat = "@"

What is in the cells... formulas or constants? What kinds of values are the cells displaying... normal text characters or pure numerical characters (presumably in a text formatted cell to preserve leading zeroes)?