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