Private Sub CommandButton1_Click()
 	If CheckBox1.Value = True Then
 	 UserForm5.Hide
 	 UserForm6.Show
 	Else
  	 Unload UserForm5
 	End If
End Sub
Private Sub ToggleButton1_Click()
	UserForm5.Hide
	UserForm6.Show
End Sub

Private Sub CommandButton1_Click()
	Unload UserForm6
	Unload UserForm5
End Sub