How do I bring focus to a msgbox?

Question

Private Sub CommandButton1_Click()
Dim i As Long
Dim xreply As Integer
Dim names As Long

Dim IE As Object

i = ActiveSheet.Range(\"D1\").Value

While Not IsEmpty(Ac         


        

Answer 1

Try this:

...
AppActivate ("Microsoft excel")
xreply = MsgBox("Is this page for women? Record:" & i, vbYesNo, "Checker")
...