Delete column if ....
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
|