Delete Blank Rows - specify column via dialog

[porter444]

From time to time I have worksheets of data that have rows I want to
eliminate. The rows I want to delete usually have something in common like,
all have a blank value in a specific column.

In the past I have just modified a macro to specify which column I want to
deal with. Like this for column B:
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Wondering if there is a way to write a macro that when run would give me a
dialog box and ask which column to look in so I don't have to change the
macro for the different situations.

Logically, something like this:

Columns(DIALOG BOX ENTRY).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Can you help?

Thanks in advance,

Scott

 

[Ron de Bruin]

Why not use the column of the active cell ?
Columns(ActiveCell.Column)

See also this page for a possible problem
http://www.rondebruin.nl/specialcells.htm