リストボックスを動的に作成し、リストを追加する

Option Explicit

Private Sub CommandButton1_Click()
    Dim olelist As Object
    Dim objlist As Object

    'リストボックス作成
    Set olelist = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Left:=35, Top:=70, Width:=150, Height:=150)
    
    '作成したリストボックス
    Set objlist = ActiveSheet.OLEObjects(olelist.Name).Object

    '項目をセット
    With objlist
        .AddItem "国語"
        .AddItem "理科"
        .AddItem "社会"
        .AddItem "算数"
    End With
    
    'これがないと使えない
    ActiveSheet.Select
    
    '終了処理
    Set objlist = Nothing
    Set olelist = Nothing
End Sub