Forms VisualBasic Script

Sub ShowDialog1()
    With UserForm1
        .ListBox1.RowSource = "Sheet1!Months"
        .obMonths.Value = True
    End With
    UserForm1.Show
End Sub