Funktion Gültigkeit/Validation

ich möchte mir mit "Validation" eine eigene Auswahlliste erstellen. Leider liegen die zu überprüfenden Daten auf einem anderen Tabellenblatt (immer auf dem dritten sichtbaren, wenn das hilft), und können sich auch je nach Auswahl ändern (Variable "Jugend"). Hiermit klappt es leider nicht:

With Range("B4").Validation
.Add xlValidateList, xlBetween, Formula1:= _
Worksheets(Jugend & "_Einzelrangliste").Range("B2:B200")
.InCellDropdown = True
End With

Weis jemand wo der Fehler liegt?

MfG
Guldan