delete columns without data (macro?)

[leecavturbo]

i did search and only found this thread but it does not work.
p.s all row 1 has data so should apply to row and down
http://www.mrexcel.com/forum/showthread.php?t=377429&highlight=delete+columns+data

 

[Makrini]

modifying xld's nice piece of code...

Sub DeleteColsIfZero()

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

 

[leecavturbo]

the biggest thank you todate

 

[leecavturbo]

i did get this to run back then but not now
where do i past that code? module?workbook or sheet?
.

 

[leecavturbo]

ah bugger . i see the mistake !
i copy and pasted from which was correct!
strange