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.
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
The spreadsheet works well on 3 other PCs.
All of the PCs are running on the latest update of win10 x64.
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
