このコードを実行しようとすると、Excel Vba で問題が発生します。下付き文字が範囲外のエラーが発生します。
Private Sub UserForm_Initialize()
n_users = Worksheets(Aux).Range("C1").Value
Debug.Print Worksheets(Aux).Range("B1:B" & n_users).Value
ListBox1.RowSource = Worksheets(Aux).Range("B1:B" & n_users).Value
ComboBox1.RowSource = Worksheets(Aux).Range("B1:B" & n_users).Value
ComboBox2.RowSource = Worksheets(Aux).Range("B1:B" & n_users).Value
End Sub
また、Debug.Print はうまく機能するため、唯一の問題は Range("B1:B" & n_users).Value にあります。