Add a cc to this code

  • Thread starter Thread starter Annette
  • Start date Start date
A

Annette

How can I add a cc ... the line will be standard so I can add it as an "And"
.... but I don't know how to do this:
I want to cc this to an address such as (e-mail address removed) every time I
run this.

-------------------------
Sub Mail_every_Worksheet()
Dim sh As Worksheet
Dim WB As Workbook
Dim strdate As String

Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Worksheets
If sh.Range("a2").Value Like "*@*" Then
strdate = Format(Now, "dd-mm-yy h-mm-ss")
sh.Copy
Set WB = ActiveWorkbook
With WB
.SaveAs "Sheet " & sh.name & " of " _
& ActiveWorkbook.name & " " & strdate & ".xls"
.SendMail ActiveSheet.Range("a2").Value, _
"SCSU Referrals"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next sh
Application.ScreenUpdating = True
End Sub
 
Okay ... I got it .... you led me to the correct code and I got it set for
how I wanted it ... I just picked the wrong one when I started. THanks!
 
Back
Top