HOW CAN I DELETE A COLUMN BASED ON A CONDITION

's Computer Specifications

I want to delete an entire column if it is EMPTY

Please help

's Computer Specifications

Sub DeleteEmptyColumns()
lastcol = ActiveSheet.Cells(ActiveCell.Row, _
Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For r = lastcol To 1 Step -1
If Application.CountA(Columns(r)) = 0 Then
Columns(r).Delete
End If
Next r
Application.ScreenUpdating = True
End Sub

Gord Dibben MS Excel MVP

On Tue, 16 Dec 2008 15:43:01 -0800, ya <(E-Mail Removed)> wrote:

>I want to delete an entire column if it is EMPTY
>
>Please help

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Counting entries in column based on condition in another column	=?Utf-8?B?Um9iZXJ0Ug==?=	Microsoft Excel Worksheet Functions	1	8th Feb 2007 03:54 PM
Based on a condition in one column, search for a year in another column, and display data from another column in the same row >> look	MPSingley@midamerican.com	Microsoft Excel Programming	2	30th Dec 2006 06:23 PM
Based on a condition in one column, search for a year in another column, and display data from another column in the same row >> look	MPSingley@midamerican.com	Microsoft Excel Misc	0	27th Dec 2006 04:31 PM
how to count a column based on condition of another column	=?Utf-8?B?UiBLaG9zaHJhdmFu?=	Microsoft Excel Worksheet Functions	4	31st Aug 2006 05:25 PM
Unique values in column based on condition in another column	emm8080	Microsoft Excel Worksheet Functions	3	16th Jul 2004 05:23 PM