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

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

Thanks very much for your help. Is it possible to turn off promts in Excel,
eg when copying from one sheet to next and closing....do you want to close
etc?

Thanks

"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


.

I tested it and it works, except it still prompts me to save etc. ANy other
ideas?


Thanks

"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


.

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


.