habe folgendes Makro zum Sortieren und öffnen einer Datei:
Private Sub CommandButton2_Click()
Workbooks.Open FileName:=[G4] _
, UpdateLinks:=3
aRow = [R65536].End(xlUp).Row
Range("A6:R" & aRow).Sort Key1:=Range("R8"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Me.Hide
End Sub
Wie könnte ich dieses Makro ausbauen, um in einer Arbeitsmappe mit mehreren Tabellenblättern alle gleichzeitig zu sortieren.
Danke allen für ihre Hilfe
Scotty