Email challenge

[Steved]

Hello from Steved

I would like to email A worksheet called To Depots and Value the cells in
that workbook

I'm Getting a complie error

method or data member not found

This is where itbis highlighting .Name_

Please help Thankyou.

Sub Mail_Todepot()
Dim wb As Workbook
Dim strdate As String

strdate = Format(Now, "dd-mm-yy")

Application.ScreenUpdating = False

Sheets("To Depot").Copy
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells(1).Select
Worksheets(1).Select
Application.CutCopyMode = False

With wb
.SaveAs "Part of" & ThisWorkbook.Name_

& " "& strdate &"C:/To Depots/Kilometres.xls"

.SendMail "(e-mail address removed)",_
"Kilometres Per Bus"

.ChangeFileAccessxlReadOnly
Kill.FullName

.Close False
End With

Application.ScreenUpdating = True
End Sub

 

[Norman Jones]

Hi Steve,

With wb

wb has not been set to any workbook.

Try replacing this line with:

Set wb = ActiveWorkbook
With wb

 

[Steved]

Thanks Norman

Hi Steve,


wb has not been set to any workbook.

Try replacing this line with:

Set wb = ActiveWorkbook
With wb