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