How to replace Taskbar icon for Excel

Following the following API method:
http://stackoverflow.com/questions/20142765/how-to-change-the-excel-icon-in-taskbar-while-loading
I wrote the following, and called the setTaskBar_Icon procedure from ThisDocument.Workbook_Open():

When I ran the sub with  NewIco = ExtractIcon32(0, myIcoFile, index) with index set between 0 and 8
I got no error reports, and displayed NO change in the classic excel taskbar icon.
Please can you advise?

Option Explicit

Declare Function ExtractIcon32 Lib "shell32.dll" Alias _
"ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Declare Function GetActiveWindow32 Lib "user32" _
Alias "GetActiveWindow" () As Integer

Declare Function SendMessage32 Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Sub setTaskBar_Icon()
    Dim myIcoFile As String
    Dim NewIco

    '~~> Change this to the relevant icon file
    myIcoFile = "D:\aaThink_Build\Icons_Think\Cineris_Document_Manager\Cineris_Doc_Manager_TaskBar_xlIcon.ico"

    NewIco = ExtractIcon32(0, myIcoFile, 0) '<<<<<

    SendMessage32 GetActiveWindow32(), &H80, 1, NewIco
    MsgBox "Hello" 'to check the sub had run fully
End Sub

Source of Cineris_Doc_Manager_TaskBar_xlIcon.ico
.ICO FILE: this file type does not load into EE site, so I changed the extension. If you down load it, please change it back to .ico

Thanks
Kelvin
Cineris-Doc-Manager-TaskBar-xlIcon---Cop