Error 1004 in Excel VBA when creating e-mail

hennie68

New Member
Joined
Mar 31, 2020
Messages
1
Office Version
  1. 365
Platform
  1. Windows
Please help with this new error that all of a sudden occurs in a spreadsheet that I have been using for 5 years now.
The spreadsheet works well on 3 other PCs.
All of the PCs are running on the latest update of win10 x64.

1585655817613.png


The relevant part of the VBA code reads:

Sub Klaar()

‘ Klaar Macro
‘Druk Data per e-pos aan Yenzani
‘Create a new Workbook Containing 1 Sheet (left most)and sends as attachment.

ThisWorkbook.Sheets(“Druk Data”).Copy

With ActiveWorkbook
ActiveSheet.Shapes.Range(Array(“Right Arrow 1″)).Select
Selection.Delete
.SendMail Recipients:=”hennie@landuse.co.za”, Subject:=”Montego Bay Electricity ” & Format(Date, “yyyy/mm/dd”)

.Close SaveChanges:=False

End With

‘ Gaan na voorblad en Stoor lêer

Range(“A1”).Select
Sheets(“Kieslys”).Select
ActiveWorkbook.Save
End Sub
 

Some videos you may like

Excel Facts

When they said...
When they said you are going to "Excel at life", they meant you "will be doing Excel your whole life".

Watch MrExcel Video

Forum statistics

Threads
1,119,102
Messages
5,576,135
Members
412,699
Latest member
Dmetcalf2021
Top