Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
  ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
  
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Sub ClickAt(x As Long, y As Long)
    SetCursorPos x, y
    mouse_event &H2, 0, 0, 0, 0 ' Left button down
    mouse_event &H4, 0, 0, 0, 0 ' Left button up
End Sub

Sub Действие()
    ' Укажите координаты, где нужно выполнить щелчок
    Dim clickX As Long
    Dim clickY As Long
    clickX = -1900 ' Например, 500 пикселей по горизонтали
    clickY = 1080 ' Например, 300 пикселей по вертикали
    
    ' Вызываем процедуру для выполнения щелчка
    ClickAt clickX, clickY
End Sub

Function ЕСЛИМН(ЗначениеПоУмолчанию As Variant, ParamArray условия() As Variant) As Variant
    Dim i As Integer
    Dim условие As Variant

    ЕСЛИМН = ЗначениеПоУмолчанию

    If UBound(условия) Mod 2 = 1 Then
        For i = LBound(условия) To UBound(условия) - 1 Step 2
            условие = условия(i)
            If условие = "" Or условие = True Or (IsNumeric(условие) And условие <> 0) Then
                ЕСЛИМН = условия(i + 1)
                Exit For
            End If
        Next i
    End If
End Function

Function ifs(ЗначениеПоУмолчанию As Variant, ParamArray args() As Variant) As Variant
    Еслимн_по_умолчанию = значениеПоУмолчанию 'прописываю аргумент функции
    For I = LBound(args) To UBound(args) Step 2
        If args(I) Or (IsNumeric(args(I)) And args(I) <> 0) Then
            Еслимн_с_поумолчанию = args(I + 1)
            Exit For
        End If
    Next
End Function

Function ifs(ParamArray args() As Variant) As Variant
    For I = LBound(args) To UBound(args) Step 2
        If args(I) Or (IsNumeric(args(I)) And args(I) <> 0) Then
            ifs = args(I + 1)
            Exit For
        End If
    Next
End Function

=ЕСЛИМН(условие1; значение1; условие2; значение2; условиe3; значение3; ...; значение если ни одно условие не удовлетворяется)

=ЕСЛИМН(условие1; значение1; условие2; значение2; условиe3; значение3)

    ' Создаем коллекцию для хранения путей к файлам
    Dim filePaths As Collection
    Set filePaths = New Collection

После

    ' Добавляю путь файла в коллекцию
    filePaths.Add fpath

Далее
    ' Извлекаю путь к файлу и удаляю файл
    filePathString = CStr(filePath)
    Kill filePathString

=СЧЁТЗ(кол)-СЧЁТЗ(кол2)

='+'='–'