Frame visible hatası

[kemal turan]

Merhaba,
Aşağıdaki kodda butona basıldığında Frame2.Visible= false kodu olmasına rağmen hala görünüyor.
İkinci defa butona bastığımda kayboluyor.
Neden acaba

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
[B]Frame2.Visible = False[/B]
CommandButton5.Visible = False
CommandButton6.Visible = True
Set S3 = Sheets("CARİ")
TextBox1.Value = WorksheetFunction.Max(S3.[A2:A50000]) + 1 'CARİ KODU
TextBox1.Enabled = False
Application.ScreenUpdating = True
End Sub

 

[kemal turan]

Çözüldü
Kodu aşağıya aldığımda sorun çözüldü.
Teşekkür ederim.

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False

CommandButton5.Visible = False
CommandButton6.Visible = True
Set S3 = Sheets("CARİ")
TextBox1.Value = WorksheetFunction.Max(S3.[A2:A50000]) + 1 'CARİ KODU
TextBox1.Enabled = False
[B]Frame2.Visible = False[/B]
Application.ScreenUpdating = True
End Sub