VBA - Udfyldning af listBox

Hej

Jeg har den udfordring, at en listbox kun udfyldes korrekt når jeg står på fanen Materialedata når jeg kører koden. Listboxen skulle gerne udfyldes uafhængig af hvilken fane jeg står på.
Jeg har vist de tre koder herunder.

Sub ShowUserformTværsnitsbæreevne()

UserForm_Tværsnitsbæreevne.Show

End Sub


Private Sub UserForm_Initialize()

' kode for startdata af userform
MultiPage1.SetFocus
OptionButton_Materialekontrolklasse_Normal.Value = True
OptionButton_Stålkvalitet_10025_2.Value = True

End Sub


Private Sub OptionButton_Stålkvalitet_10025_2_Click()

ListBox_Stålkvalitet.RowSource = Sheets("Materialedata").Range("Stålkvalitet_10025_2").Address
ListBox_Stålkvalitet.Value = ListBox_Stålkvalitet.List(0)

End Sub