Updated to Office 2013 - VBA no longer works

[Chrican]

Had a simple code to disable the F1 key that worked great in Excel 2010, got force updated to '13 over the weekend and now I get this error when I launch Excel:

Run-time error '50290':
Method 'OnKey' of object '_Application' failed

And the code I use is this, saved into ThisWorkbook on the Personal.xlsb:

Private Sub Workbook_Open()'
' DisableF1 Macro
'
Application.OnKey "{F1}", vbNullString
'
End Sub

Did 2013 discontinue something? Is there an updated code I can use? Any tips/help/etc? I hate that pesky F1 key with a passion... I'm no VBA expert, I just copied that macro off this forum a few years back I think.

Thanks,

 

[jkpieterse]

No this code should "just work". However you could try this:

In a normal module:

Sub ContinueOpen()'
Application.OnKey "{F1}", vbNullString
End Sub

in ThisWorkbook:

Private Sub Workbook_Open()'
Application.OnTime Now, "'" & Thisworkbook.FullName & "'!ContinueOpen"
End Sub

 

[Chrican]

Thanks for the reply and sorry for the delay following up, was out of town

I ended up asking the new resident excel wizard and turns out, for some reason, the private part of Private Sub doesn't work. Convert to just normal Sub and it works no problem. Odd...