Show/Hide overlapping buttons

[kanadaaa]

Hi, I have a question about the behaviour of buttons.
I have CommandButton1 and CommandButton2 on sheet1 and they overlap in position.
What I want to do is hide CB1 and show CB2 when CB1 is clicked, and hide CB2 and show CB1 when CB2 is clicked.
Then I tried this code:

Private Sub CommandButton1_Click()
     CommandButton1.Visible = False
     CommandButton2.Visible = True
End Sub

Private Sub CommandButton2_Click()
     CommandButton2.Visible = False
     CommandButton1.Visible = True
End Sub

It works quite well, but I'm not fully satisfied because when I keep pressing the mouse button, the invisible button "flashes", or becomes visible for an instant (when I release the mouse button the visible button becomes invisible and the invisible button becomes visible, just in the way I want the code to work).
I don't want it to "flash" on click. How could I solve this problem? Thank you.

 

[JoeMo]

I can't reproduce the flash behavior you describe, but you might try this:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
CommandButton1.Visible = False
CommandButton2.Visible = True
Application.ScreenUpdating = True
End Sub

...and similarly with the other button.

 

[CSmith]

Just out of curiosity why are you doing this? And if the buttons are not exactly same size/position they could flash...

 

[kanadaaa]

Thank you two for your replies.

Just out of curiosity why are you doing this? And if the buttons are not exactly same size/position they could flash...

I use them to toggle Auto Filter On/Off, one for turning it on and the other for turning it off. I wanted to hide one because you never need both of them.

Anyway, I thought I'd just use one button and change its function and caption on click.
The following code resolved the issue, but I don't know why my button flashed.

Private Sub CommandButton2_Click()
    Dim msb As Long
    If ActiveSheet.Cells(5, 1) = "" Then
       msb = MsgBox("There is no reference data.", vbExclamation, "Error")
    ElseIf CommandButton2.Caption = "Auto Filter On" Then
        FilterForm.Show
        CommandButton2.Caption = "Auto Filter Off"
    ElseIf CommandButton2.Caption = "Auto Filter Off" Then
        Call UndoAutoFilter
        CommandButton2.Caption = "Auto Filter On"
    End If
End Sub

Sub UndoAutoFilter()
    Dim rc As Long
    If ActiveSheet.AutoFilterMode Then
        With ActiveSheet
            .Unprotect Password:="1234"
            .AutoFilterMode = False
            .Protect Password:="1234", UserInterfaceOnly:=True
        End With
    End If
End Sub