Nefunguje mi makro na odeslani listu z excelu

[Snekment]

Dobrý den, mám makro v excelu ,ktere mi fungovalo az do prechodu z office 2007 na 2016

Po spusteni makra se ukaze tato chybova hlaska :

Run-time error 1004
Obecna chyba posty. Ukoncete aplikaci excel, spuste znovu postovní system a opakujte akci.

Po zmacnuti tlacitka debug se objevi toto makro a zlute je oznacena posledni veta viz :

Sub skryj()
'skrývá a zobrazuje řádky podle výsledku vzorců ve sloupku C
Dim a As Integer, i As Integer
Dim wsh As Worksheet

Application.ScreenUpdating = False
a = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row

Worksheets("vysledek").Select
For i = 2 To a
If Cells(i, 3) = "" Then
' skryje prázdné řádky
Rows(i & ":" & i).EntireRow.Hidden = True
ElseIf Cells(i, 3) <> "" Then
'zobrazí řádky
Rows(i & ":" & i).EntireRow.Hidden = False
End If
Next

Worksheets("list3").Select
For i = 2 To a
If Cells(i, 3) <> "" Then
'zobrazí řádky
Rows(i & ":" & i).EntireRow.Hidden = False
ElseIf Cells(i, 3) = "" Then
'skryje prázdné řádky
Rows(i & ":" & i).EntireRow.Hidden = True
End If
Next

Worksheets(1).Select
Application.ScreenUpdating = True

Sheets("vysledek").Select
Range("F1").Select

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\pkment\AppData\Local\Temp\kontrola cen masa křeček.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub

Pokud vite tak prosim pomožte . Fakt nevim co s tim.
Diky Snek

[atari]

S tím VBA neporadím, ale nedávno se tady objevil tento odkaz, třeba pomůže: https://proexcel.cz/jak-odeslat-e-mail-z-excelu/

[Snekment]

Děkuji zkusím to ...