Macro to delete columns

[Luong]

Hello,

I have a macro to import text file data into an Excel
spreadsheet. Sometimes, several columns imported have
blank data and can be random columns. I would like to
write a macro to do the followings:
1) From column A-M, If any column along row cell 9 is
blank, then delete the entire columns with blank data.

Thanks for any help.

 

[Laura Cook]

Sub DeleteBlanks()
Range("A9:M9").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

 

[Luong]

Laura,

Never mind my earlier reply, I got it. Thanks

 

[Laura Cook]

You're welcome, glad I could help.