1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Sub CombineTT2sDelete () Schemerig s als Koord s ga = verder MsgBox („? “, vbYesNo) Als s = vbNo dan Sub weggaat transferTT2S DeleteRows Sub van het eind