butona [O2].Select kodu eklenebilir böylece otomatik olarak butondan çıkılmış olur

Private Sub CommandButton1_Click()

[O2].Select '<--Eklenen Satır

UserForm1.Show

End Sub