Pon esto en tu código como te muestro más abajo. Application.ScreenUpdating = False
Private Sub Txt_Obra_Change():Application.ScreenUpdating = False
Dim obra As String
obra = "*" & Sheets("Proveed_Detalle").Txt_Obra.Value & "*"
Range("A4").AutoFilter field:=18, Criteria1:=obra
End Sub
Private Sub Txt_Proveedor_Change():Application.ScreenUpdating = False
Dim proveed As String
proveed = "*" & Sheets("Proveed_Detalle").Txt_Proveedor.Value & "*"
Range("A4").AutoFilter field:=17, Criteria1:=proveed
End Sub