Macro para enviar selección hoja excel y adjunto con problema

Tengo una macro que me permite enviar selección de hoja de Excel. Funciona perfectamente hasta que

Le agrego la línea para seleccionar el archivo adjunto. Allí detiene la ejecución y dice “Error de automatización”.

Este es la Macro:

Sub Enviar_Rango_a_Destinatario_de_correo()

'Seleccionamos el rango de celdas a enviar Select

ActiveSheet.Range("A1:m27").Select

' Show the envelope on the ActiveWorkbook.

ActiveWorkbook.EnvelopeVisible = True
'Llamamos al envío...

With ActiveSheet.MailEnvelope

.Item.To = ThisWorkbook.Sheets("Formulario (Envio)").Range("Q2").Value

.Item.cc = ThisWorkbook.Sheets("Formulario (Envio)").Range("R2").Value
'con copia a...
.Item.Subject = ThisWorkbook.Sheets("Formulario (Envio)").Range("P3").Value
.Item.Attachments.Add (ruta_archivo)
' Llamamos al atachment de este modo y se detiene la ejecución. Dice error de automatización"
.Item.Send

End With

End Sub

Sub selec_archivo()

On Error GoTo a2

ruta_archivo = Application.GetOpenFilename(Title:="Click para Seleccionar Archivo a Enviar")
If ruta_archivo = False Then
Exit Sub
Else
Cells(7, 16).Value = ruta_archivo
End If
a2:

End Sub