Adding multiple emails to CC in VBa

[Camz88]

Hi, so, I am using the below VBA, but I can only add one email to CC, how do I add more than one.
Private Sub CheckBox1_Click()
Dim xOutlookObj As Object
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi" & vbNewLine & vbNewLine & _
"Cost Card attached is approved from me" & vbNewLine & _
"Thanks Lynette"
On Error Resume Next
With xOutMail
.To = "Email1@Hotmail.co.uk"
.CC = "Email2@Hotmail.co.uk" & "Email3@Hotmail.co.uk"
.BCC = ""
.Subject = "Cost Card Approved"
.Body = xMailBody
.Attachments.Add ActiveWorkbook.FullName
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Thanks for any help, and apologies if this has been asked before.

Mark

 

[GWteB]

Hi & Welcome to MrExcel!

What happens if you replace this line

.CC = "Email2@Hotmail.co.uk" & "Email3@Hotmail.co.uk"

with this line

.CC = "Email2@Hotmail.co.uk ; Email3@Hotmail.co.uk"

 

[Camz88]

Thankyou GWteB,

Very simple change, I could smell the fumes from my brain trying to see where I went wrong.

Have a good day.