Type Mismatch Error when I highlight multiple cells and use the delete key

When I highlight multiple cells, and use the delet key on my keyboard I get the following error

Run-time error "13"
type mismatch

This is the code I have in my workbook, the portion in red below is where the issue is per when i hit the debug option on the error msg box. I hope someone has the right answer to this out there, thanks in advance for the help.

Please Login or Register  to view this content.

Target is a range. When you change multiple cells at once, then Target is a range of cells. I don't know what you are trying to do, so I don't know how to change it. Depending on what you want, you could try: If Target.Cells(1, 1) <> "" Then etc.

The purpose of the Macro is that whenever there is a chnage in the workbook, any cell at all in the workbook, then I would like the button to the enabled to run another macro that is attached to the button. However when I delete multiple cells at once I get that error. Is there a way to write the macro to accommodate that?

What about?

Please Login or Register  to view this content.