Estou mudando o nome de várias planilhas ao mesmo tempo, porem algumas delas tem atalhos, e em meio a mudança quero que os atalhos acompanhem essa mudança.
Sub changeTargetPath()
Set wsc = WScript.CreateObject("WScript.Shell")
Set Lnk = wsc.CreateShortcut(wsc.SpecialFolders("desktop") & "\tabela 1.lnk")
Lnk.targetpath = """C:\Users\leandro.moreira\Desktop\tabela 1.xlsx"" C:\Users\leandro.moreira\Desktop\atalho 2.xlsx"
Lnk.Description = "tabela 1"
Lnk.Arguments = "C:\Users\leandro.moreira\Desktop\atalho 2.xlsx"
Lnk.Save
End Sub
O que eu fiz de código é isso.