ThisWorkBook_Open()

[Hugo121]

Так ведь уже сказали, куда нужно поместить код.
И я бы дополнил его так:

Private Sub Workbook_Open()
    With Sheets("ММК")
        .Range("A22").Value = 5
        .ComboBox1.List = Array("Нормальное распределение", "Треугольное распределение", "Бета-распределение")
    End With
End Sub