Geht u. a. Makro auch ohne select?

Sub Ausdruck_Kategorien_alle_Tabellen()
Dim wb As Workbook
Dim wksKd As Worksheet
Dim lZeile   As Long
Dim wsName As String
Dim loLetzteQ As Long
Dim ZeilenDifferenz As String
Dim Lz As Long
Application.ScreenUpdating = False
Set wb = ThisWorkbook
Set wksKd = wb.Worksheets("Kontodaten")
For lZeile = 2 To wksKd.Cells(Rows.Count, 15).End(xlUp).Row
If wksKd.Range("O" & lZeile).Value  "" Then
wsName = wksKd.Range("O" & lZeile)  'liest in Tabelle Kontodaten Spalte O=15 die vorhandenen Kontonamen aus
With Worksheets(wsName) 'ActiveSheet
.Activate   'geht leider nicht ohne
.PageSetup.PrintArea = ""
Lz = .Cells(1, 16).End(xlDown).Row
If .AutoFilterMode Then Cells.AutoFilter
.PageSetup.PrintArea = "$Q$1:$U$" & Lz
.Range("$Q$1:$U$" & Lz).AutoFilter Field:=1, Criteria1:=""
ActiveWindow.SelectedSheets.PrintPreview
If .AutoFilterMode Then Cells.AutoFilter
.PageSetup.PrintArea = ""
End With
End If
Next lZeile
Application.ScreenUpdating = True
End Sub