Thank you very much for your response,Investigate a little bit security.
I have been simulating your code and find that you need to add location to the trusted location.
1. Go to the Trust Center, press button Trust Center Location then select Trusted Location from left menu.
2. Press button Add new location. Specify full path location from your code. Then OK, OK, OK.
3. Save workbook. Close workbook. Open Workbook again and try code from first post again.
If this not help I don't what may be.
This works perfectlySince you have 64bit Office, you'll need:
Code:Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr