Command Button to Disappear after a couple of seconds

Friends,

I have a CommandButton that appears to the right of a selected cell...

ElseIf Not Application.Intersect(Target, Range("A6:A1048576")) Is Nothing Then

    If Not Target.Value = "" Then
            
        Set r = Target
        
        CommandButton2.Left = Target.Offset(0, 1).Left
        CommandButton2.Top = Target.Top
        CommandButton2.Visible = True

How can I get that button to dissapear after 2 seconds?

Thanks in advance,

-Mike