spreadsheet won't run macro's

[hopr37]

I've tried all the usual solutions.
Checking if automation is on.
cells are not set to text.
Check for Circular References not an issue

The strange thing is if I restart the computer it will sometimes work.
Corrupt excel or something else?

 

[rlv01]

The code you were posting about in this thread

https://www.mrexcel.com/forum/excel-questions/1052439-debug-error.html

Depends on the Worksheet change event to run. In that code, you have several statements that disable events for certain actions. It is likely that while testing you crashed after disabling events.

Create a small macro and run it to turn events back on:

Sub FixEvents()
'Reset Events after a crash
    Application.EnableEvents = True
End Sub

or else create a button

Private Sub CommandButton1_Click()
'Reset Events after a crash
    Application.EnableEvents = True
End Sub

 

[hopr37]

Tried both options and niether worked.
Can you take a peek at my spreadsheet to see if it's the code or just something on my end?

https://drive.google.com/file/d/1wIWF0I9SxSkhyAFQA5-7raNo3rb215TV/view?usp=sharing

 

[hopr37]

you basically just have to place a number in the "used column" and it should subtract from the "remaining column"

 

[rlv01]

It works fine for me. What version of Excel are you running?

 

[rlv01]

I see that you have a button "CommandButton21" on you main worksheet. However it has no code to execute. You created code for "CommandButton1", which does not exist, so it is possible you never reset EnableEvents to True. Add this code, which should work with the existing "CommandButton21". A message box should display so you'll know if it is executing.

Private Sub CommandButton1_Click()
    MsgBox "EnableEvents Status: " & Application.EnableEvents, , "Before Reset Attempt"
    'Reset Events after a crash
    Application.EnableEvents = True
    MsgBox "EnableEvents Status: " & Application.EnableEvents, , "After Reset Attempt"
End Sub

 

[hopr37]

That's the button you had me create. I just removed the code. Excel 2010.
so if it works for you but not for me do you have any suggestions?

 

[rlv01]

That's the button you had me create. I just removed the code. Excel 2010.
so if it works for you but not for me do you have any suggestions?

Sorry, that was my cut and paste error. I intended to post code for CommandButton21. Here it is:

Private Sub CommandButton21_Click()
    MsgBox "EnableEvents Status: " & Application.EnableEvents, , "Before Reset Attempt"
    'Reset Events after a crash
    Application.EnableEvents = True
    MsgBox "EnableEvents Status: " & Application.EnableEvents, , "After Reset Attempt"
End Sub