Thanks for the response... one more basic question:

What if I am moving and formatting the data first, then I want to delete
these columns.... How/where do I place this?

"Tom Ogilvy" wrote:

Dim lastcol as Long, i as Long
lastcol = cells(10,256).End(xlToLeft).Column
for i = lastcol to 1 step -1
if isnumeric(cells(10,i)) then
if cells(10,i) < 1 then
columns(i).Delete
end if
end if
Next

--
Regards,
Tom Ogilvy

"JEFF" wrote in message
...
Hi,

I'd like to have my VBA delete those columns where the cell content of row
10 of that same column <1....

Help?! TIA