Macro para enviar mail por excel

requiero de sus grandes conocimientos,estoy trabajando un macro para enviar mail por excel, la cual funcionabastante bien (detallada mas abajo), pero solo si predetermino la dirección decorreo.necesito saber la forma que usando esta misma macro pueda buscar en una . "A5" la direcciónde correos ya que esta va cambiando siempre.

<pre>Sub Enviar_Mail()
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Set objMailItem = objOutlook.CreateItem(0)</pre><pre>[email protected])</pre><pre>objRecipient.Type = 1
objMailItem.Subject = "mail prueba "
objMailItem.Body = "adjunto archivo"
objMailItem.send
'Esta parte enviaría mensajes de texto
ActiveWorkbook.SendMail ([email protected]).</pre><pre>MsgBox "Su solicitud ha sido enviada.", Title:="Envío"
End Sub</pre><pre> </pre><pre> </pre><pre>atento a sus respuesta,, </pre>