Macro to Delete empty columns

I organize numerous excel charts with numerous columns. Each worksheet always
has a header row. I would like to know if anyone knows how to create a Macro
that will delete columns which contain a Header Row but no data?

how about a for/each loop looking for counta <2

--
Don Guillett
SalesAid Software
[email protected]
"Darth Cor" <Darth [email protected]> wrote in message
news:[email protected]...
> I organize numerous excel charts with numerous columns. Each worksheet
always
> has a header row. I would like to know if anyone knows how to create a
Macro
> that will delete columns which contain a Header Row but no data?
>
>