Класс Constants набор констант Содержатся названия листов пути файлам

'Класс Constants - набор констант. Содержатся названия листов, пути к файлам, названия файлов
Option Explicit

Public Function wbThisName() As String
    wbThisName = "Программа.xlsm"
End Function

Public Function wbDataPath() As String
    wbDataPath = "E:\КУРСОВАЯ РАБОТА\project\Release v.3\"
End Function

Public Function wbTemplateRelativePath() As String
    wbTemplateRelativePath = "Шаблоны\"
End Function

Public Function wbPrintRelativePath() As String
    wbPrintRelativePath = "На печать\"
End Function

Public Function wbTemplateLegals1() As String
    wbTemplateLegals1 = "Шаблон 1.doc"
End Function

Public Function wbTemplateLegals2() As String
    wbTemplateLegals2 = "Шаблон 2.doc"
End Function

Public Function wbTemplateLegals3() As String
    wbTemplateLegals3 = "Шаблон 3.doc"
End Function

Public Function wbTemplateLegals4() As String
    wbTemplateLegals4 = "Шаблон 4.doc"
End Function

Public Function wbTemplateLegals5() As String
    wbTemplateLegals5 = "Шаблон 5.doc"
End Function

Public Function wbTemplateLegals6() As String
    wbTemplateLegals6 = "Шаблон 6.doc"
End Function

Public Function wbTemplateLegals7() As String
    wbTemplateLegals7 = "Шаблон 7.doc"
End Function

Public Function wsLegalsName() As String
    wsLegalsName = "Юридические лица"
End Function

Public Function wsLegalActivitiesName() As String
    wsLegalActivitiesName = "Виды деятельности юр. лиц"
End Function

Public Function wsCompanyActivities() As String
    wsCompanyActivities = "Виды деятельности компании"
End Function

Public Function wsActivitiesName() As String
    wsActivitiesName = "Виды деятельности"
End Function

Public Function wsListOfCompaniesForActivity() As String
    wsListOfCompaniesForActivity = "Компании деятельности"
End Function

Public Function accountingCompaniesName() As String
    accountingCompaniesName = "Учет налогоплатильщиков"
End Function

Public Function taxTypesName() As String
    taxTypesName = "Виды налогов"
End Function

Public Function companyTaxes() As String
    companyTaxes = "Налоги компании"
End Function

Public Function taxesForTaxType() As String
    taxesForTaxType = "Отчет по типу налога"
End Function

Public Function listOfNotPaidCompanies() As String
    listOfNotPaidCompanies = "Просроченные налоги"
End Function

Public Function checkList() As String
    checkList = "Проверки организаций"
End Function

Public Function failedChecks() As String
    failedChecks = "Завалившие проверку"
End Function

Public Function InfinityNum() As Long
    InfinityNum = 1000000000
End Function