Shortcut Key for Macro Returns "Cannot Run the Macro..." Error

[ransomedbyfire]

I have made a shortcut key to run a macro. But, whenever I use the shortcut key, I get an error message that says Excel cannot run the macro. I also get a security warning saying that "Some active content has been disabled."

I have tried using "Application.EnableEvents"; but this does not help. I ran into this same problem a few days ago and managed to fix it; but now I can't remember how. Please help!

 

[Tom Urtis]

Could be that your code, at the moment it gets executed, is in conflict with something else, such as if it relies on an active cell moving 3 columns to the left, but your active cell is in column A, that would cause an error. Not necessarily the error you are receiving, but if you post your code that woudl help people reading this to guide you to a possible solution.

 

[ransomedbyfire]

Here is the code that activates the keys

Private Sub Workbook_Open()

Application.EnableEvents = True

'Checks to see if the spreadsheet is the original or a copy
namestring = ThisWorkbook.Name
findstring = Year(Date)

'Sets calculation to manual if workbook is a copy
If InStr(1, namestring, findstring) > 0 Then
    Application.Calculation = xlCalculationManual

'Sets calculation to auto if not a copy
    Else: Application.Calculation = xlCalculationAutomatic

'Activates keyboard shortcuts if not a copy
    Application.OnKey "^+G", "Green"
    Application.OnKey "^+W", "White"

    Call ftdatecheck
    
End If

End Sub

Here are the macros that the keys are supposed to call

Public Sub white()

If ActiveSheet.Name = "Owned" Then
    Row = ActiveCell.Row
    Range("A" & Row).Interior.ColorIndex = 0
    Range("H" & Row & ":L" & Row).Interior.ColorIndex = 0
End If

End Sub

Sub green()

If ActiveSheet.Name = "Owned" Then
    Row = ActiveCell.Row
    Range("A" & Row).Interior.ColorIndex = 35
    Range("H" & Row & ":L" & Row).Interior.ColorIndex = 35
End If

End Sub

 

[ransomedbyfire]

Okay. I think I fixed it. For anyone else who may ever have the same problem, here is what I did.

1. Delete the "onkey" codes.
2. Restart Excel.
3. Re-assign the shortcut keys via the Macros button in the developer tab.

You must make sure the onkey codes are no longer affecting your spreadsheet, or you will continue to get the same error.