Printen - opvolgende namen in een kolom

[trainers]

Onderstaande macro is allesbehalve goed en Select moet je eigenlijk vermijden, maar weet niet hoe ik dit hier moet aanpakken.
Bijgaand het bestand waarbij ook in de VBA van het werkblad een Private Sub Worksheet_SelectionChange(ByVal Target As Range) zit.

De rij namen in kolom E kan variëren en om telkens de macro aan te passen is niet echt slim.
LastRow heb ik gevonden dus kan de laatste cel met een naam bepalen.

De bedoeling van de macro is om voor elke deelnemer een eigen print te maken waarbij de naam rechtsboven staat en middels voorwaardelijke opmaak de betreffende regel(s) worden gekleurd.

Sub Print_All()
    LastRow = Cells(Rows.Count, 5).End(xlUp).Row
        Range("E2").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        Range("E3").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        Range("E4").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        Range("E5").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        Range("E6").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        Range("E7").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        Range("E8").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        Range("E9").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
'Enz. tot LastRow E

End Sub

Kan iemand mij hierbij helpen?
Mijn dank. Trainers

 

[mvw64]

Kijk zo eens

 

[trainers]

Helemaal top!
Leuk ook die variant 2 :thumb:
Reuze bedankt.

Trainers