Private Sub Team_Leader_AfterUpdate()
SDL = Switch(Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
Team_Leader = "Vn", "Nl")
End Sub