Sub del_files()
Dim sFolder As String, sFiles As String
    sFiles = Dir("C:\Users\*******\Documents\unpack\" & "*")
    'цикл по всем файлам в папке
    On Error Resume Next
    Do While sFiles <> ""
        If sFiles <> "lotout.txt" Then
            'удаляем файл
            Kill sFiles
            'на всякий случай передаем управление системе,
            'чтобы дождаться удаления
            DoEvents
        End If
        'получаем имя следующего файла в папке
        sFiles = Dir
    Loop
    sFiles = Dir()
    sFiles = Dir("C:\Users\*******\Documents\Backups\" & "*")
    On Error Resume Next
    Do While sFiles <> ""
        Kill sFiles
        RmDir sFiles
        DoEvents
        sFiles = Dir
    Loop
End Sub

    Do While DateBgn = DateEnd
        DateBgn = DateBgn + i
        strFldr = Year(DateBgn) & OneInTwo(Month(DateBgn)) & OneInTwo(Day(DateBgn))
        colFolder.Add strFldr
        i = i + 1
    Loop

Set oLO = ActiveWorkbook

oLO.Worksheets("lotout").Selection <Object doesn&#39;t support this property or method>
oLO.Worksheets("lotout").Range.Selection <Wrong number of arguments or invalid property assignment>

Private Sub tbObject_change()
Dim lastRow As Integer, i As Integer

lastRow = Worksheets("Ведомость").UsedRange.Rows.Count
ObjectName = cbxObject.Value & "-" & tbObject.Value

For i = 3 To lastRow
    If Cells(i, 1).Value = ObjectName Then
        cbxFBuks.Value = Cells(i, 2).Value
         Exit Sub
    Else
        cbxFBuks.Value = Empty
    End If
    i = i + 1
Next i

End Sub