Cycle Through Different Apps

Good day everyone!

I want make a macro that would cycle through active windows apps just like when you press Alt + Tab repeatedly. So far all I could do is cycle through different workbooks using this syntax:

   For i = 1 to Workbooks.Count

          Windows(i).Activate
          "do whatever you wanna do"

    Next i

a book taught me this:

   Sub StartWord()

          Application.ActiveMicrosoftApp xlMicrosoftWord

     End Sub

The above code worked but it also creates an empty document by default when all I want is to simply switch between Excel and Word as if I was pressing Alt + Tab.

To give you a clearer picture, lets say I have Excel, Word, Powerpoint and Firefox running at the same time. I want to make a macro that would cycle through all these applications as if I was pressing Alt + Tab repeatedly.

Hope you guys can help! Thanks in advance!

I don't have the answer to your question but think it would help to know why you would want to do that.

Dom

You could use the tasks collection in Word's VBA library.