Sub single1() MsgBox "Can't find " & UCase(SHORTCUTMENUFILE) & ThisWorkbook.Path & vbCrLf & vbCrLf & _ "You may need to reinstall BudgetMan", vbCritical, APPNAME End Sub