Hi,

My first post so I hope that this makes sense!

I am trying to add multiple attachments from within the same folder to an email.

The names of the attachments change each week that I run the macro and there I need to link to a fixed cell in my Excel document (which changes weekly). I would like to add attachments from cell [B10] & [B11].

I have posted my attempt at code below. Unfortunately, I am currently getting a Run Time Error 440: This operation failed.

Sub Send_Areas()
'
' Send_Areas Macro
'
Let a = 1
Do Until a = 23

Sheets("Workings for Macro").Select

Range("B4").Select

ActiveCell.FormulaR1C1 = a
Calculate

Email = Sheets("Workings for Macro").[E4]

Subject = Sheets("Workings for Macro").[B11]

Address = Sheets("Workings for Macro").[E4]

File = Sheets("Workings for Macro").[B10]

Set objOutlook = CreateObject("Outlook.Application")

Set objOutlookmsg = objOutlook.CreateItem(olMailItem)

With objOutlookmsg

Address = Email

.Recipients.Add (Address)
.Subject = Subject
.Body = "Please see attached"
             

.Attachments.Add (File)
.Attachments.Add = Sheets("Workings for Macro").[B10]


.Save

End With

Let a = a + 1
Loop
Any help would be much appreciated!

Thanks