Sub Add_Common_Table_Style()
'------------------------------------
'Author:    Roman "Rioran" Voronov
'Date:      the 27-th of August, 2015
'Feedback:  voronov_rv@mail.ru
'------------------------------------
'This programm adds my lovely table
'style into active workbook.
'------------------------------------
      Dim ArrX, i%
      ArrX = Array(xlEdgeTop, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlInsideVertical, xlInsideHorizontal)
      On Error GoTo Not_Performed
      ActiveWorkbook.TableStyles.Add ("Rio_Style")
      With ActiveWorkbook.TableStyles("Rio_Style")
          .ShowAsAvailableTableStyle = True
          For i = 0 To 5
              .TableStyleElements(xlWholeTable).Borders(ArrX(i)).Weight = xlThin
          Next i
          .TableStyleElements(xlHeaderRow).Interior.ThemeColor = xlThemeColorAccent6
          .TableStyleElements(xlHeaderRow).Interior.TintAndShade = 0.799981688894314
      End With
      ActiveWorkbook.DefaultTableStyle = "Rio_Style"
      Exit Sub
Not_Performed:
      MsgBox "Error"
End Sub