Delete columns macro

[thecueball]

Hi,

I use the following macro to delete any blank rows in my worksheets, can it be changed to use it for deleteing any blank columns within my data range???

If it can't, has anyone got a macro that can do the above?

TIA

Sub DeleteRowsIfZero()



FinalRow = Range("D65536").End(xlUp).Row

For x = FinalRow To 1 Step -1

If WorksheetFunction.CountA(Range(Cells(x, "A"), Cells(x, "F"))) = 0 Then

Rows(x).Delete Shift:=xlUp

End If

Next x
End Sub

 

[xld]

Sub DeleteColsIfZero()

    Finalcol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    For x = Finalcol To 1 Step -1
    
        If WorksheetFunction.CountA(Columns(x)) = 0 Then
        
            Columns(x).Delete Shift:=xlToLeft
        End If
    Next x
End Sub

 

[thecueball]

Hi xld,

Thanks for the help, but when I run the macro, nothing happens...

I am in cell A1 if that makes any difference..

and the first column with no data is F, but the data in G does not move accross when I run the macro..

Does that make sense, or have I asked for the worng thing?!?!?!

Thanks!

 

[xld]

It is looking for row 1 for the headers. Is that your case?

 

[thecueball]

It is looking for row 1 for the headers. Is that your case?

The columns I want to keep and bunch together (i.e. delete the columns inbetween) all start at row 3, with the exception of 1 in column A, which starts in row 5

Thanks!

 

[xld]

Sub DeleteColsIfZero()

    Finalcol = Cells(3, Columns.Count).End(xlToLeft).Column
    
    For x = Finalcol To 1 Step -1
    
        If WorksheetFunction.CountA(Columns(x)) = 0 Then
        
            Columns(x).Delete Shift:=xlToLeft
        End If
    Next x
End Sub

 

[thecueball]

That's the chap!!!!

Thank you very much for the help.