コンボボックスに設定する値

質問

ユーザーフォーム上のコンボボックスに設定する値を
ワークシートの入力規則のリストで設定した値から参照するにはどうしたらいいでしょうか？
入力規則の値は、元の値のテキストボックス？に直接入力されているので
これをどこかのセル範囲を参照して～というのはナシでお願いします。

回答No.1

m3_maki

Private Sub UserForm_Initialize()
　　Dim rng As Range

　　Set rng = Worksheets("sheet1").Range("A1")
　　Me.ComboBox1.List = Split(rng.Validation.Formula1, ",")
End Sub

とか。