Automatisches Ausfüllen des Zellendropdown funzt n

Private Sub UserForm_Initialize()
Worksheets("system").Activate
Mase_und_gewichte_1.farbe_fhs.RowSource = _
Sheets("system").Range("J3:M" & _
ActiveSheet.UsedRange.Rows.Count).Address
End Sub

Wenn ich mit Aktivierter Arbeitsmappe "WEP" die Dropdownliste öffne, wird diese Liste mit den Inhalten der Zellen, die sich auf dem aktivierten Tabellenblatt befinden - und nicht mit den Werten des eigentlich programmierten Tabellenblattes ("system") gefüttert...woran kann das liegen?
Mfg Uwe