ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=ActiveCell, _
    TextToDisplay:=ActiveCell.Offset(0, 2).Value
Cells(ActiveCell.Row + 1, 1).Select

Sub SetupBtn()
Dim intCount As Integer
For intCount = 1 To ActiveCell.Offset(0, 1)
    PrintHyperlinkedPDFs
Next 
End Sub

Sub MyPrint_2()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.[p5].Value <> 0 Then sh.PrintOut Copies:=1
    Next sh
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Sheets("Заявка").[B6] = "" Then
        MsgBox "Заполните ячейку B6"
        Cancel = True
    End If
    If Sheets("Заявка").[B7] = "" Then
        MsgBox "Заполните ячейку B7"
        Cancel = True
    End If
    If Sheets("Заявка").[B8] = "" Then
        MsgBox "Заполните ячейку B8"
        Cancel = True
    End If
    If Sheets("Заявка").[B9] = "" Then
        MsgBox "Заполните ячейку B9"
        Cancel = True
    End If
    If Sheets("Заявка").[B10] = "" Then
        MsgBox "Заполните ячейку B10"
        Cancel = True
    End If
    If Sheets("Заявка").[B11] = "" Then
        MsgBox "Заполните ячейку B11"
        Cancel = True
    End If
    If Sheets("Заявка").[B12] = "" Then
        MsgBox "Заполните ячейку B12"
        Cancel = True
    End If
    If Sheets("Заявка").[B13] = "" Then
        MsgBox "Заполните ячейку B13"
        Cancel = True
    End If
    If Sheets("Заявка").[B14] = "" Then
        MsgBox "Заполните ячейку B14"
        Cancel = True
    End If
End Sub