Macro to send an attachment via Outlook from excel

Hi


I found a macro which I would like to modify a bit:

(Sub mailOutlook()
Dim OutApp As Object
Dim OutMail As Object
Dim stFname As String
Dim cell As Range

For Each cell In Range("A1:A5")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.createitem(0)
With OutMail
.To = cell
.Subject = Range("C1")
.Body = Range("C2")
.display
'.send (Optional)
End With
Next cell

Set OutMail = Nothing
Set OutApp = Nothing
End Su)

Is there ability to add code in this to send the exact attachment I'm in now? So not only the email but with a file.

Thank you a lot for you support,
Andy