Sub Enviar() 'não pode fazer clicks ou mudar o foco do mause nem pressionar teclas Dim text As String Dim contato As String 'original ' text = Sheets...