Thread: Excel shutting down during save

Okay, I've narrowed it down more. ActiveWorkbook.Save works BEFORE "Killbutts", but ActiveWorkbook.Save immediately after "Killbutts" causes Excel to fail. So, I'm thinking "Killbutts" might be the problem, I just don't know why. If I remove Killbutts, it runs flawlessly.

Here's "Killbutts"; it's purpose is to delete some autoshape buttons on the active sheet. It seems to work well, but something's going wonky with it.

Sub Killbutts()
'Activate sheet to delete autoshapes.
Dim GetShape As Shape
    For Each GetShape In ActiveSheet.Shapes
        GetShape.Delete
    Next
    With ActiveSheet
    'Return our rows to normal
            Rows("1:8").RowHeight = 15
    'Remove the Color and words from our range
            Range("C1:F7").ClearContents
            Range("C1:F7").Interior.ColorIndex = xlNone
    End With
End Sub

BTW, Killbutts grew from this post: http://www.excelforum.com/excel-prog...-coloring.html

Running it like this, everything works fine (except my buttons aren't deleted):

Sub Killbutts()
'Activate sheet to delete autoshapes.
'Dim GetShape As Shape
    'For Each GetShape In ActiveSheet.Shapes
        'GetShape.Delete
    'Next
    With ActiveSheet
    'Return our rows to normal
            Rows("1:8").RowHeight = 15
    'Remove the Color and words from our range
            Range("C1:F7").ClearContents
            Range("C1:F7").Interior.ColorIndex = xlNone
    End With
End Sub

That works, no Excel failure. It deletes my two buttons, but it doesn't delete the two red rectangular autoshapes I had behind my two buttons.

Romper, thanks for the advice on deleting shapes. I'm not at all familiar with shapes, so this stuff is all new to me.

I changed Killbutts as you suggested, and it's doing the trick now with no hiccups. Thank you very much for helping me locate and fix the problem. I'll see if I can implement all your suggestions for tightening up my code.

Thanks,
John

Sub Killbutts()
    With ActiveSheet
        .DrawingObjects.Delete
    'Return our rows to normal
            Rows("1:8").RowHeight = 15
    'Remove the Color and words from our range
            Range("C1:F7").ClearContents
            Range("C1:F7").Interior.ColorIndex = xlNone
    End With
End Sub

Sure. Except for all my hair falling out, a nervous giggle whenever I speak, and the twitching of the whole left side of my face, I'm having the time of my life!