O erro se dá por uma virgula, segue a correção:
Original:
Resp = MsgBox("Está correto o link da Empresa " & Range("A2").Value & "?", vbCrLf + vbCrLf + "Link :" & Inprtd, vbYesNo + vbQuestion, "Confirmação do Link")
Arrumado:
Resp = MsgBox("Está correto o link da Empresa " & Range("A2").Value & "?" + vbCrLf + vbCrLf + "Link :" & Inprtd, vbYesNo + vbQuestion, "Confirmação do Link")
Se a resposta lhe foi útil, clique no joinha!
Postado : 22/12/2016 6:28 am