How to send SendKeys ALT TAB?

Question

Application.SendKeys "{PGDN}", True

Works fine, however Application.SendKeys "{% TAB}", True and Application.SendKeys "% {TAB}", True do nothing.

How do I execute alt-tab using sendkeys to switch windows?

Here is the code:

Application.SendKeys "{PGDN}", True Application.SendKeys "{PGDN}", True xreply = MsgBox("Is this page for women? Record:" & i, vbYesNo, "Gender Checker") If xreply = vbYes Then ActiveSheet.Range("C" & i).Value = vbYes End If 

Answer 1

Use this:

 Sub ReturnToWindows() Application.SendKeys ("%{TAB}") DoEvents End Sub 

Should run while you are in Excel and not in VBE .