I found this code, and can't figure it out

[counihan3]

I found this code while do a search on the site. It does exactly what I am looking for. I know that it is a little old, but I think it will still work. My problem is that I am no able to define the mail recpient, everything I have tried so fair has not worked. Can someone tell me how to define s.

Sub test()
Dim myFile As String, s As String
Dim c 
myFile = Range("B5").Value
ThisWorkbook.ActiveSheet.Copy
'Need to assign name via saveas
ActiveWorkbook.SaveAs "C:\Windows\temp\" & myFile
ThisWorkbook.Activate
If Not IsNull(Application.MailSession) Then Application.MailLogon
With ThisWorkbook.Worksheets("Sheet6").Cells
For Each c In .Range("D2:D12").Cells
s = c.Value
If s = "" Then GoTo Skip
Workbooks(myFile & ".xls").SendMail Recipients:=s, _
Subject:="Here is a NEW Problem Report", _
ReturnReceipt:=False 
Skip:
Next c
End With 
Workbooks(myFile & ".xls").Close False
'Now cleanup
Kill "C:\Windows\temp\" & myFile & ".xls"
End Sub

 

[Diffy]

It looks like the email addresses are in D2:D12 of your spreadsheet.

 

[counihan3]

If I take out that line of code, will I be able to define the recpients?

 

[brian.wethington]

If I take out that line of code, will I be able to define the recpients?

How do you want to define the recipients? A range in the workbook?

 

[counihan3]

I got it to work, I was able to define the recipients in the macro. Now I just have to hope they wont change.

 

[counihan3]

How would I change the following line of code for multiple worksheets, or would it be better to just copy and paste the macro three times, changing the worksheet named.