Combobox Fokus verlieren

Private Sub cbTest1_Change()
If ActiveSheet.Name = "Data" Then
Worksheets("Data").Unprotect ("go")
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Data")
Call ws.Range("A6").AutoFilter(1, "Yes", , , True)
Worksheets("Data").Protect ("go")
End If
End Sub