Is this correct for select all??


For i = Check1.LBound To Check1.Ubound
Check1(i).value = vbChecked
Next i