Usei o seguinte código, funciona corretamente, cria um atalho do workbook na area de trabalho... Queria saber se tem a possibilidade se escolher o ícone que vai criar o atalho? como faria isso? para não ser o padrão do excel...

On Error GoTo erro

Dim Atalho As String
Dim PastaDestino As String
Dim LocalExcel As String
Dim Livro As String
Dim VersaoAtualSistema As String

VersaoAtualSistema = ThisWorkbook.Worksheets("Definições").Range("S4").Value
PastaDestino = Environ("USERPROFILE") & "Desktop"
Atalho = PastaDestino & "DK Ponto de Venda " & VersaoAtualSistema & ".url"

LocalExcel = Application.Path & "Excel.exe"
Livro = ThisWorkbook.Path & "DK_Ponto_de_Venda_" & VersaoAtualSistema & ".xlsm"

Open Atalho For Output As #1
Print #1, "[InternetShortcut]" & vbCrLf & "URL = " & Livro
Print #1, "IconIndex=1" & vbCrLf & "IconFile=" & LocalExcel
Close #1

'ThisWorkbook.Worksheets("Definições").Range("AG136").Value = "Foi criado um atalho do sistema na sua área de trabalho."
'mensagemExclamacao.Show

Exit Sub

erro: