Email challenge
 

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 ",_
"Kilometres Per Bus"

.ChangeFileAccessxlReadOnly
Kill.FullName

.Close False
End With

Application.ScreenUpdating = True
End Sub

Email challenge
 

Hi Steve,

With wb

wb has not been set to any workbook.

Try replacing this line with:

Set wb = ActiveWorkbook
With wb

---
Regards,
Norman



"Steved" wrote in message
...
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 ",_
"Kilometres Per Bus"

.ChangeFileAccessxlReadOnly
Kill.FullName

.Close False
End With

Application.ScreenUpdating = True
End Sub

Email challenge
 

Thanks Norman

"Norman Jones" wrote:

Hi Steve,

With wb

wb has not been set to any workbook.

Try replacing this line with:

Set wb = ActiveWorkbook
With wb

---
Regards,
Norman



"Steved" wrote in message
...
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 ",_
"Kilometres Per Bus"

.ChangeFileAccessxlReadOnly
Kill.FullName

.Close False
End With

Application.ScreenUpdating = True
End Sub