ActiveWorkbook.RefreshAll

Dim objOutlook As Object
Dim objMail As Object
Dim ws As Worksheet

Set objOutlook = CreateObject("Outlook.Application")
Set ws = ActiveSheet

Set objMail = objOutlook.CreateItem(0)

    With objMail
        .To = cell.Value
        .Cc = "email@email.com"
        .Subject = cell.Offset(0, 1).Value
        .Body = cell.Offset(0, 2).Value
        .Attachments.Add cell.Offset(0, 3).Value
        .Display
    End With

    Set objMail = Nothing
Next cell

Set ws = Nothing
Set objOutlook = Nothing