Loop for all Worksheets

hELP ME SO i CAN run THIS codeS to all worksheets in the activeworkbook AT ONE TIME,(e.i. Oct 2008). I record this macro IN my Personal macros as 'Macro5.'

   Windows("IDF Clearing Template REVISED.xls").Activate
    Rows("1:2").Select
    Range("BE1").Activate
    Selection.Copy
    Windows("Oct 2008.xls").Activate
    Rows("1:1").Select
    Range("BG1").Activate
    Selection.Insert Shift:=xlDown
    Windows("IDF Clearing Template REVISED.xls").Activate
    Columns("BM:BQ").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Oct 2008.xls").Activate
    Application.WindowState = xlMinimized
    Columns("BM:BM").Select
    ActiveSheet.Paste
    Range("BN2").Select
    Application.Run "'IDF Clearing Template REVISED.xls'!Macro1"

Thanks and best regards

Is this whay ytou mean, place the code in the workbook you are using

 Dim ws     As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        Application.Run "'Personal.xls'!Macro5"
    Next ws

Your post does not comply with Rule 3 of our Forum Rules. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here http://www.excelforum.com/misc.php?do=bbcode#code

Note: I will add them this time only!

Then you either need to amend macro5 to work efficiently to suit your needs or amend my code to actually select each sheet, which will of course be slower & less efficientr