Thank you friend. Thank you for your reply.

Office_Novice wrote:
Option Explicit

Private Sub UserForm_Activate()
Call CheckStatus(1)
'Do Phase 1
Call CheckStatus(2)
'Do phase 2
'And So on

End Sub

Function CheckStatus(i As Long)
If i = 1 Then UserForm1.CheckBox1.Value = True
If i = 2 Then UserForm1.CheckBox2.Value = True
If i = 3 Then UserForm1.CheckBox3.Value = True
If i = 4 Then UserForm1.CheckBox4.Value = True
If i = 5 Then UserForm1.CheckBox5.Value = True
End Function

Hello all

[quoted text clipped - 48 lines]

End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200812/1