Mudar icone do Excel - Aplicação VBA

Pessoal é o seguinte criei uma aplicação VBA usando o Excel, salvei está funcionando certinho só que queria mudar o icone para abrir a aplicação ao invez de aparecer o ícone do Excel com a exclamação em cima queria colocar um outro icone é possível?

VBA – MUDANDO O ÍCONE DA APLICAÇÃO

Macro para mudar o ícone padrão da aplicação VBA.

Siga os seguintes passos:

a-Abra uma nova pasta de trabalho no Excel
b-Abra o VBA Ferramentas->Macro->Editor do Visual Basic (Alt+F11)
c-No Editor do VBA, Selecione Exibir->Project Explorer
d-Clique duas vezes em Esta Pasta_de_trabalho e cole o código desta seção (abaixo)
e- Insira um novo módulo Inserir->Módulo e cole o código desta seção (abaixo)
f- Salve e Feche a pasta de trabalho
g- Abra novamente a pasta de trabalho e veja o resultado

'******Código para EstaPasta_de_trabalho******
Option Explicit

Private Sub Workbook_Open()
Application.Caption = " Meu Aplicativo Personalizado"
ChangeApplicationIcon
End Sub
'*****************************************

'************Código do Módulo****************
Option Explicit

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

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

Sub ChangeApplicationIcon()

Dim Icon&

'Muda o ícone para o do Bloco de Notas
'Mude para o arquivo que contém o ícone desejado (.ico)
Const NewIcon$ = "Notepad.exe"

Icon = ExtractIcon32(0, NewIcon, 0)
SendMessage32 GetActiveWindow32(), &H80, 1, Icon '< 1 = big Icon
SendMessage32 GetActiveWindow32(), &H80, 0, Icon '< 0 = small Icon

End Sub


Fontes consultadas....
http://www.tomasvasquez.com.br/blog/microsoft-office/vba-mudando-o-icone-da-aplicacao
http://www.tomasvasquez.com.br/blog/microsoft-office/excel/vba-alterar-icone-barra-titulo-excel