VBAコンボボックスが表示されません

Question

VBA(Excel2010)でユーザーフォームを作りましたが、コンボボックスの中身が出てきません。フォームやコンボボックスの名前は合っていることを確認済みです。

Option Explicit
Private Sub Preandintra_Initialize()
   
    With Gender
        .AddItem "Female"
        .AddItem "Male"
    End With
       
    With EPMD
        .AddItem "YG"
        .AddItem "GK"
        .AddItem "FY"
        .AddItem "EA"
        .AddItem "AB"
    End With  
End Sub

Answer 1

コード

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Female"
.AddItem "Male"
End With

With ComboBox1
    .AddItem "YG"
    .AddItem "GK"
    .AddItem "FY"
    .AddItem "EA"
    .AddItem "AB"
End With

End Sub

Answer 2

ここを

Private Sub Preandintra_Initialize()

こうしてみてはいかがでしょう

Private Sub UserForm_Initialize()