Macro para enviar correo con rango de celdas y una imagen adjunta

No tengo mucha experiencia en macros pero estoy intentando realizar una macro para enviar un correo con un rango de celdas y adicional me adjunte una imagen de cualquier formato.

Lo que intento es:

1- Enviar en el cuerpo del correo el rango de celdas "A1:J2" de la Hoja 3 y que en ese mismo proceso me abra el explorador para seleccionar una imagen y que esta se adjunte al correo. Posteriormente el correo se envié a los destinatarios.  **No se si me explico pero aquí dejo la macro que estoy trabajando** Gracias.

Private Sub CommandButton1_Click()

Dim a As Worksheet
Dim srang As Range
Dim name As String
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Set a = Worksheets("Hoja3")
nom = a.name
Set srang = a.Range("A1:J2")
With srang
.Parent.Select
.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
. Introduction = "Por medio de la presente solicito de su apoyo para levantar un Ticket por la siguiente situacion"
With .Item
.To = "[email protected]"
.Subject = "Solicitud de Ticket"
.Send
End With
End With

a.Select
ActiveWorkbook.EnvelopeVisible = False
Application.ScreenUpdating = False
Application.EnableEvents = False

End Sub