Using a Macro to Delete Empty Columns

**PleaseHelpMe3** · 01-25-2016, 05:55 PM

I can't figure out why my code won't work. Columns 7-10 are supposed to delete when I run the code.

Columns.PNG

Code:

Dim lngCount As Long

For i = 3 To 12
lngCount = Application.WorksheetFunction.CountA(Columns(i))
If lngCount <= 1 Then Columns(i).EntireColumn.Delete
Next i

**LeoTaxi** · 01-25-2016, 06:59 PM

Please Login or Register  to view this content.

Kind regards
Leo

Using a Macro to Delete Empty Columns

LinkBack

Thread Tools

Rate This Thread

Display

Using a Macro to Delete Empty Columns

Re: Using a Macro to Delete Empty Columns

Thread Information

Users Browsing this Thread

Similar Threads

Macro Button to Delete Entire Row if cells in two columns are empty in certain worksheet

VBA macro to delete all empty rows and columns

Delete Empty Columns

Delete Empty Rows and empty columns from the word table

Delete row if multiple columns empty

how to delete empty rows or columns only

[SOLVED] Macro to Delete empty columns

Bookmarks

Bookmarks

Posting Permissions