Delete Column if entire column is empty

[SSmith1392]

I have a spreadsheet without 40 columns and 100 rows where information is imported from a Microsoft Access file each day. Depending on the day certain columns are completely empty while others are filled. I have created a button on my spreadsheet and would like to link a macro to that button that would delete the entire column if each row within that column is empty. I have found some codes within the forum, but I can't seem to get any of them to work. Thanks in advance.

 

[cerfani]

I didnt test but try something like...

For i = whatever to 1 Step -1 'count backwards since deleting columns that you are iterating
    If IsEmpty(Columns(i).Value2) Then Columns(i).Delete
Next i

double check syntax i could be wrong but IsEmpty with the entire range inside it might be good enough to detect if the column is empty, what have you tested?