Загрузка данных

Option Explicit

Public Const SHEET_STAFF As String = "Личный состав"
Public Const SHEET_JULY As String = "Июль"
Public Const SHEET_AUGUST As String = "Август"
Public Const SHEET_QUEUE As String = "Очередь"
Public Const SHEET_STATS As String = "Статистика"
Public Const SHEET_SETTINGS As String = "Настройки"

Sub ПроверкаСистемы()

    MsgBox "Система «Наряд-Мастер» успешно подключена!", vbInformation, "Наряд-Мастер"

End Sub