Code to delete partial rows based on blank cells

Morning all,

I was looking for a little help to automate a pre-Access dump with a Workbook.

The WB has three sheets; Scheduled Work, Completed Work and Additional Work.

On "Scheduled Work", for each row where "A" in that row is blank, I would like to have the cells in A:K deleted and the cells below shifted up.

On "Completed Work" and "Additional Work"", for each row where "A" in that row is blank, I would like to have the cells in A:N deleted and the cells below shifted up.

As always, the help is greatly appreciated.

Hi,

This code will delete rows A through K on the active sheet where the cell in column A is empty.

Please Login or Register  to view this content.

This code will delete rows A through N on the active sheet where the cell in column A is empty.

Please Login or Register  to view this content.

Adjust ranges to suit.

Sweep,

I've tried this code as both stand alone modules and incorporating into existing macros. Either way it seems to send excel into an endless loop at which point only ending the process will stop it.

Any ides?