try
application.displayalerts = false
Application.EnableEvents = False
Selection.RemoveSubtotal
application.displayalerts = true
Application.EnableEvents = true

--
HTH...

Jim Thomlinson


"Mike H." wrote:

when I do this:

Application.EnableEvents = False
Selection.RemoveSubtotal

I get a confirmation question dialog box:
Entire Subtotal Row will Be deleted. With OK or Cancel.

I am not sure why this particular sheet gives me that confirmation. I do
type text into some of the empty cells in the subtotals rows but I tested on
other sheets and don't get the confirmation message. Ideas?