o que estou fazendo de errado, criei um botão e inseri a macro abaixo, porem ele não executa, quero substituir os vínculos
'H:\Orçto\2015\ por --> 'H:\Orçto\2015R\
hoje eu utilizo Ctrl + U e faço manualmente, o problemas é que são muitas planilhas e gostaria de fazer em massa.
Sub removerUnderline()
Sheets("check") = Replace(Range("A1:AA100"), "'H:\Orçto\2015\", "'H:\Orçto\2015R\")
End Sub