Sorry, thanks very much. Code was copied too high in macro dialog box.
Thanks again.

"Luke M" wrote:

Sub DeleteRows()
Application.DisplayAlerts = False
Range(ActiveCell.Offset(1, 0), "A65536").EntireRow.Delete
Application.DisplayAlerts = True
End Sub

--
Best Regards,

Luke M
"Christina" wrote in message
...
Good morning,

Need help with:

Code to delete all rows in Column A below active cell
Turn off warnings in a macro, specifically I am copying a spreadsheet to a
new one, and close original, don't want pop up box to ask if file needs to
be
saved etc.

Thanks


Cristina


.