Wie kann activate verzichtet werden?

Sub Kategorien_suchen2()
Dim wb As Workbook         'benötigt für aktuelle Workbook
Dim wsKat As Worksheet     'benötigt für Tabelle Kategorien
Dim adrKat As Range        'benötigt für Suchadresse
Dim AnzKat As Integer      'benötigt für gefundener Anzahl
Dim sKat As String         'benötigt für Tabelle Kategorien
Set wb = ThisWorkbook
Set wsKat = wb.Worksheets("Kategorien")
With wsKat
wsKat.Activate  'Kann dies beseitigt werden?
sKat = InputBox("Geben Sie den Suchbegriff ein!")  'später ersetzen durch Textbox
If sKat = "" Then Exit Sub                         'wenn Suchbegriff leer dann exit
Set adrKat = .Range("E2:E" & Range("E65536").End(xlUp).Row)
AnzKat = Application.WorksheetFunction.CountIf(adrKat, sKat)
If AnzKat = 5 Then
MsgBox "die Anzahl der ermittelten Kategorien " & AnzKat & " = 5"
ElseIf AnzKat  5 Then
MsgBox "die Anzahl der ermittelten Kategorien " & AnzKat & " grösser 5"
End If
End With
End Sub