Want to add CC in mail merge

Hi,

Can we see relevant part of your code?

MailItem.cc = "Email address1; Email address2"

Select allOpen in new window

Regards

Option Explicit

Public Sub TestMail()

Dim newMail         As Outlook.MailItem
Dim toRange         As Range
Dim ccRange         As Range
Dim fName           As Variant

Set toRange = Sheets("Sheet1").Range("A2:A4")       'Change as required
Set ccRange = Sheets("Sheet1").Range("D2:D5")       'Change as required
With Application.FileDialog(msoFileDialogOpen)

    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "PowerPoint Files", "*.pptx"
    .Filters.Add "PowerPoint 97-2003 Files", "*.ppt"
    .Show
   
    Dim i As Integer
    For i = 1 To .SelectedItems.Count
        fName = .SelectedItems(i)
    Next i
   
End With

If fName <> False Then

    Set newMail = Outlook.CreateItem(olMailItem)
   
    With newMail
   
        Dim cell As Range
   
        For Each cell In toRange
            If cell.Value <> "" Then .To = .To & cell.Value & ";"
        Next cell
        .To = Left(.To, Len(.To) - 1)
       
        For Each cell In ccRange
            If cell.Value <> "" Then .CC = .CC & cell.Value & ";"
        Next cell
        .CC = Left(.CC, Len(.CC) - 1)
   
        .Attachments.Add fName, olByValue
        .Send
       
    End With

End If

End Sub

can u check  d code

the code seems ok

which code

Yours of course