Autofilter без выбора листа. Возможно?

[VBA_Student]

Есть вопрос.
Фильтруется база данных, результат переносится на Spreadsheet. После фильтрации на листе с данными осуществляется переход на главный лист+появляется Spreadsheet. В общем все жутко и некрасиво мерцает. Можно ли применить автофильтр к листу, не выбирая его?

Код: Выделить всё

Worksheets("Data_base").Select
Range(Cells(1, 1), Cells(FreeCell + 1, 6)).Select
 
      With Selection
         
            If CheckBox1 Then _
_
                .AutoFilter Field:=4, Criteria1:=Make_request.TextBox2.Text
               
            If CheckBox2 Then _
_
                .AutoFilter Field:=2, Criteria1:=Make_request.DTPicker1.Value
               
            If CheckBox3 Or OptionButton2 Then _
_
                .AutoFilter Field:=5, Criteria1:=ComboBox1.Value
               
        End With



[KL]

Код: Выделить всё

Sub test1()
    Application.ScreenUpdating = False
    With Worksheets("Data_base")
        With .Range(.Cells(1, 1), .Cells(FreeCell + 1, 6))
            If CheckBox1 Then
                .AutoFilter Field:=4, Criteria1:=Make_request.TextBox2.Text
            ElseIf CheckBox2 Then
                .AutoFilter Field:=2, Criteria1:=Make_request.DTPicker1.Value
            ElseIf CheckBox3 Or OptionButton2 Then
                .AutoFilter Field:=5, Criteria1:=ComboBox1.Value
            End If
        End With
    End With
End Sub

Код: Выделить всё

Sub test2()
    Application.ScreenUpdating = False
    With Worksheets("Data_base")
        With .Range(.Cells(1, 1), .Cells(FreeCell + 1, 6))
            Select Case True
            Case CheckBox1: .AutoFilter Field:=4, Criteria1:=Make_request.TextBox2.Text
            Case CheckBox2: .AutoFilter Field:=2, Criteria1:=Make_request.DTPicker1.Value
            Case CheckBox3, OptionButton2: .AutoFilter Field:=5, Criteria1:=ComboBox1.Value
            End Select
        End With
    End With
End Sub

[VBA_Student]

Спс