Sub таб()
'
' таб Макрос
'
' Сочетание клавиш: Ctrl+q
'
    Range("A11:J16").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)

Sub ExportAsPDF()
Dim Filename As String
With CreateObject("Scripting.FileSystemObject")
Filename = .BuildPath(ThisWorkbook.Path, .GetBaseName(ThisWorkbook.Name) & ".pdf")

End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, ignoreprintareas _
            :=False, openafterpublish:=True
    
MsgBox "All PDF's have been successfully exported."
End Sub