Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Windows("GdA.xls").Activate
Sheets("GdA").Select 'CbB1.Visible = True: CbB1 = "": CbB1.SetFocus
OpB1 = Enabled
OpB3.Visible = False
OpB3 = Enabled
CbB1.Visible = True
CbB1.SetFocus
CbB2.Visible = True
'OpB1.SetFocus
'OpB1_Click
End Sub