Move focus to CommandButton

[mdmackillop]

Arising from a question recently:
How can I move the focus to a Control Toolbox CommandButton using a SelectionChange event. It doesn't appear to have a SetFocus property. Activate runs the code behind the button, which I may not wish to do.

[Jacob Hilderbrand]

You can select it.



Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.CommandButton1.Select
End Sub

[mdmackillop]

Hi Jake,
This does not select it in a manner that activates it when you press Enter. Or is this not an available option?

[Jacob Hilderbrand]

Well, how about something like this.



Option Explicit

Dim Flag As Boolean

Private Sub CommandButton1_Click()
If Flag = True Then
Exit Sub
End If
MsgBox "Running Macro..."
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Flag = True
Me.CommandButton1.Activate
Flag = False
End Sub


If the Selection Change event activates the Command Button, the code will not run.

[mdmackillop]

Thanks Jake,
That does the selection, but unfortunately Enter does not trigger the button, which is what I was after. I'll file away the flag setting though. Potentially very useful.

[Jacob Hilderbrand]

Space Bar will trigger the button.

[mdmackillop]

:doh: footinmout :blush

KB Item?