Добрый день. Ошибка в коде макроса, не могу понять в чем дело - вопрос №2551036

В указанной команде выдает ошибку. Код макроса прилагаю ниже.
Sub Ìàêðîñ1()
Dim v1 As Range
Dim D As String
Set v1 = Range(«V!D1»)
If Range("Èòîãè!D2") = "" Then
D = "_"
Else
D = Range("Èòîãè!D2").Value
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
«F:\Jobs\Ñêëàä ÃÏèÒ\!ÑÏÐÀÂÊÈ\!ÈÒÎÃÈ ÑÓÒÎÊ\2017\» & v1 & "\Èòîãè " & D & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

Windows("!ÈÒÎÃÈ.xlsm").Activate
Sheets("Èòîãè").Select
Range(«A1»).Select
Worksheets("Îáîðîòêà óòðî").Cells.ClearContents
Worksheets("Îáîðîòêà óòðî").Cells.ClearOutline
Worksheets("Îáîðîòêà-1").Cells.ClearContents
Worksheets("Îáîðîòêà-1").Cells.ClearOutline

' î÷èñòêà ëèñòà "Ïîðòðåò"
Worksheets("Ïîðòðåò").Cells.ClearContents
Worksheets("Ïîðòðåò").Cells.ClearOutline

Worksheets("Îáîðîòêà ÑÎÕ").Cells.ClearContents
Worksheets("Îáîðîòêà ÑÎÕ").Cells.ClearOutline
Worksheets("ÑÎËÂÎ ïîðòðåò ñêëàäîâ").Cells.ClearContents
Worksheets("ÑÎËÂÎ ïîðòðåò ñêëàäîâ").Cells.ClearOutline
Worksheets("Îáîðîòêà âå÷åð").Cells.ClearContents
Worksheets("Îáîðîòêà âå÷åð").Cells.ClearOutline
Worksheets("Îáîðîòêà ÏÐÈÊÀÇ").Cells.ClearContents
Worksheets("Îáîðîòêà ÏÐÈÊÀÇ").Cells.ClearOutline
Worksheets("Çàÿâêà").Cells.ClearContents
Worksheets("Çàÿâêà").Cells.ClearOutline
Sheets("Èòîãè").Select
Range(«Clear»).Select
Selection.ClearContents
Range(«O11»).Select
Selection.ClearContents
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

август 10, 2017 г.