Excel Sheet
 

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

Excel Sheet
 

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

Excel Sheet
 

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


.

Excel Sheet
 

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


.

Excel Sheet
 

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


.