=MaskCompare(A1;"##-##";1)

=MaskCompare(A1;"##-##";1)

dim hwnd
hwnd = FindWindow(vbNullString, "Тест1")
if hwnd <> 0 then
  Debug.Print "Parent window hwnd: " & hwnd
  hwnd = FindWindowEx(hwnd, 0, vbNullString, "Отмена")
  Debug.Print "Button window: " & hwnd
end if

hwnd = FindWindowEx(hwnd, 0, "Button", "Отмена")

FindWindow(vbNullString, "Тест1")

wbLOG.SaveAs sPath & sLOGName, xlNormal

wbLOG.SaveAs sPath & sLOGName, xlOpenXMLWorkbook

Public Function СУММЦВЕТ(MyRange As Range, MyCell As Range) As Double
    Dim Sum As Double 'Ввод переменной Sum для подсчета суммы
    Sum = 0 'Приравнивание переменной Sum к нулю
    Application.Volatile True 'Пересчет функции при каком-либо изменении значений ячеек листа
    For Each cell In MyRange 'Цикл по всем ячейкам диапазона
        If cell.Font.Color = MyCell.Font.Color Then 'Проверка текущей ячейки на условие цифры и по цвету
            Sum = Sum + GetNumeric(cell.Value) 'Значение текущей ячейки прибавляется к промежуточной сумме
        End If
    Next
    СУММЦВЕТ = Sum 'Приравнивание возвращаемому результату значение конечной суммы
End Function

Function GetNumeric(CellRef As String)
    Dim StringLength As Integer
    StringLength = Len(CellRef)
    For i = 1 To StringLength
        If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
    Next i
    GetNumeric = Result
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lc&, lr&
    lc = Target.Column
    If lc < 14 Then
        lr = Target.Row
        Application.EnableEvents = 0
        Cells(lr, 14).Value = IIf(Application.CountA(Cells(lr, 1).Resize(, 13)), "что-то есть", Empty)
        Application.EnableEvents = 1
    End If
End Sub

Sub Test()
'оптимизируем настройки
Application.Calculation = xlCalculationmanual
On Error GoTo ErrHandler
'основной код
ErrHandler:
If Err.Number > 0 Then
msgbox "Во время выполнения кода возникла ошибка: " & Err.Descrition, vbInformation
end if
'возвращаем настройки
Application.Calculation = xlCalculationAutomatic
End Sub