Issue with deleting objects

The attached file was working properly. I added Sub SaveDate and now Sub Delete_Button bombs out and I receive the following error message "Run-time error '-2147024809 (80070057)': The specified value is out of range.

I added On Error Resume Next to Sub Delete_Button so I don't receive the error message, but that doesn't solve the issue (only avoids it).

Sub SaveDate and Sub Delete_Button aren't tied together, so I'm not sure why I am receiving the error message. Any help would be appreciated.

I don't know for sure but I think you need to unprotect the sheet before you can delete the objects.