1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
Privé SubWorksheet_SelectionChange (Doel ByVal als Waaier) 'Plaats in de module van het Blad Application.OnKey „{LUSJE}“, „Down1“ Sub van het eind Privé SubDown1 () 'Plaats in Module1 Selection.Offset (1, 0). Selecteer Beëindig Sub