VBA aus FAQ

Private Sub UserForm_Initialize()
Dim rng As Range
Application.ScreenUpdating = False
'sichtbare (gefilterte) Zellregion wird dem Range-Objekt zurückgegeben
Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
neues Workbook hinzugefügt
Workbooks.Add
Range wird kopiert, aber wohin?
rng.Copy Range("A1")
Rows(1).Delete
If IsEmpty(Range("A1")) Then
Beep
MsgBox "Es entspricht kein Datensatz dem Suchkritierumg!"
ActiveWorkbook.Close savechanges:=False
End
ElseIf Range("A1").CurrentRegion.Rows.Count = 1 Then
lstVisibleCells.AddItem Range("A1").Value
Else
lstVisibleCells.List = Range("A1").CurrentRegion.Value
End If
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

Falls die Inhalte in ein neues Workbook hinkopiert werden, stellt sich für mich die Frage warum? Kann man nicht einfach so den gefilterten Inhalt in einer ListBox anzeigen lassen? Der oben abgebildete Code bezieht sich auf https://www.herber.de/mailing/118300h.htm
Grüße Peter