Schleife ? Wie geht das ???

Sub Einfuegen()
Range("E3").Select
If ActiveCell.Value = "1.FC Bocholt" Then
Range("D3").Select
Call Bocholt
End If
If ActiveCell.Value = "1.FC Kleve" Then
Range("D3").Select
Call Kleve
End If
If ActiveCell.Value = "1.FC Union Solingen" Then
Range("D3").Select
Call UnionSolingen
End If
If ActiveCell.Value = "Alemannia Aachen II" Then
Range("D3").Select
Call Aachen2
End If
If ActiveCell.Value = "Bonner SC" Then
Range("D3").Select
Call Bonn
End If
If ActiveCell.Value = "Bor. Mönchengladbach II" Then
Range("D3").Select
Call Gladbach
End If
If ActiveCell.Value = "ETB Schwarz-Weiß Essen" Then
Range("D3").Select
Call Essen
End If
If ActiveCell.Value = "FC Junkersdorf" Then
Range("D3").Select
Call Junkersdorf
End If
If ActiveCell.Value = "FC Wegberg-Beeck" Then
Range("D3").Select
Call Wegberg
End If
If ActiveCell.Value = "GFC Düren 09" Then
Range("D3").Select
Call Dueren
End If
If ActiveCell.Value = "KFC Uerdingen 05" Then
Range("D3").Select
Call Uerdingen
End If
If ActiveCell.Value = "MSV Duisburg II" Then
Range("D3").Select
Call Duisburg
End If
If ActiveCell.Value = "PSI Yurdumspor Köln" Then
Range("D3").Select
Call Yurdumspor
End If
If ActiveCell.Value = "SSVg. Velbert" Then
Range("D3").Select
Call Velbert
End If
If ActiveCell.Value = "TuRU 1880 Düsseldorf" Then
Range("D3").Select
Call Turu
End If
If ActiveCell.Value = "VfB Homberg" Then
Range("D3").Select
Call Homberg
End If
If ActiveCell.Value = "VfB Speldorf-Mühlheim" Then
Range("D3").Select
Call Speldorf
End If
If ActiveCell.Value = "Wuppertaler SV Borussia II" Then
Range("D3").Select
Call Wuppertal
End If
End Sub