Sub ATM()
'
' ATM Macro
' Macro recorded 20/07/2008 by Zakwan
'
' Keyboard Shortcut: Ctrl+j
'
    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Sheet1").Select
    Sheets.Add
    Sheets("Sheet2").Copy Before:=Sheets(2)
    Sheets("Sheet2 (2)").Copy Before:=Sheets(3)
    Range("A1,D46").Select
    Range("D46").Activate
    Sheets("Sheet2 (3)").Copy Before:=Sheets(4)
    Sheets("Sheet2 (4)").Copy Before:=Sheets(5)
    Sheets("Sheet2 (5)").Copy Before:=Sheets(6)
    Sheets("Sheet2 (6)").Copy Before:=Sheets(7)
    Sheets("Sheet2 (7)").Copy Before:=Sheets(8)
    Sheets("Sheet2 (8)").Copy Before:=Sheets(9)
    Sheets("Sheet2 (9)").Copy Before:=Sheets(10)
    Sheets("Sheet2 (10)").Copy Before:=Sheets(11)
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "1"
    Sheets("Sheet2 (2)").Select
    Sheets("Sheet2 (2)").Name = "2"
    Sheets("Sheet2 (3)").Select
    Sheets("Sheet2 (3)").Name = "3"
    Sheets("Sheet2 (4)").Select
    Sheets("Sheet2 (4)").Name = "4"
    Sheets("Sheet2 (5)").Select
    Sheets("Sheet2 (5)").Name = "5"
    Sheets("Sheet2 (6)").Select
    Sheets("Sheet2 (6)").Name = "6"
    Sheets("Sheet2 (7)").Select
    Sheets("Sheet2 (7)").Name = "7"
    Sheets("Sheet2 (8)").Select
    Sheets("Sheet2 (8)").Name = "8"
    Sheets("Sheet2 (9)").Select
    Sheets("Sheet2 (9)").Name = "9"
    Sheets("Sheet2 (10)").Select
    Sheets("Sheet2 (10)").Name = "10"
    Sheets("Sheet2 (11)").Select
    Sheets("Sheet2 (11)").Name = "11"
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "12"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\setluaes.xls"
    Windows("setluaes.xls").Activate
    Range("B:C,E:E,J:J").Select
    Range("J1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D:D,E:E").Select
    Range("E1").Activate
    Selection.ColumnWidth = 4
    Range("c1").Activate
    Selection.ColumnWidth = 27
    ActiveSheet.Shapes("Picture 1").Select
    Selection.ShapeRange.IncrementLeft -288.75
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("1").Select
    Range("A1").Select
    ActiveSheet.Paste
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Application.CutCopyMode = False
    Windows("setluaes.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\setlpic ebimeb.xls"
    Windows("setlpic ebimeb").Activate
    Range("B:C,E:E,J:J").Select
    Range("J1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D:D,E:E").Select
    Range("E1").Activate
    Selection.ColumnWidth = 4
    Range("c1").Activate
    Selection.ColumnWidth = 27
    ActiveSheet.Shapes("Picture 1").Select
    Selection.ShapeRange.IncrementLeft -288.75
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("2").Select
    Range("A1").Select
    ActiveSheet.Paste
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Application.CutCopyMode = False
    Windows("setlpic ebimeb").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\setlpic cbd.xls"
    Windows("setlpic cbd").Activate
    Range("B:C,E:E,J:J").Select
    Range("J1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D:D,E:E").Select
    Range("E1").Activate
    Selection.ColumnWidth = 4
    Range("c1").Activate
    Selection.ColumnWidth = 27
    ActiveSheet.Shapes("Picture 1").Select
    Selection.ShapeRange.IncrementLeft -288.75
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("3").Select
    Range("A1").Select
    ActiveSheet.Paste
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Application.CutCopyMode = False
    Windows("setlpic cbd").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmwdacq.xls"
    Windows("atmwdacq.xls").Activate
    Columns("A:A").EntireColumn.AutoFit
    Columns("A:A").ColumnWidth = 17.29
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 16.43
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 1.43
    Columns("D:D").ColumnWidth = 8.29
    Columns("D:D").ColumnWidth = 8.57
    Columns("E:E").ColumnWidth = 8
    Columns("F:F").ColumnWidth = 6.14
    Columns("G:G").ColumnWidth = 6
    Columns("H:H").ColumnWidth = 7.57
    Columns("I:I").ColumnWidth = 4.43
    Range("I3").Select
    ActiveCell.FormulaR1C1 = "REF"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "PAG"
    Range("I2").Select
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("4").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmwdacq.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmsumis.xls"
    Windows("atmsumis.xls").Activate
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 4.57
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 8.71
    Columns("D:D").ColumnWidth = 7
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 6.29
    Columns("F:F").ColumnWidth = 4.86
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 8.71
    Columns("H:H").ColumnWidth = 3.71
    Columns("I:I").ColumnWidth = 5.14
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("5").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmsumis.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmsumaq.xls"
    Windows("atmsumaq.xls").Activate
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 6.57
    Columns("A:A").ColumnWidth = 7.57
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").ColumnWidth = 5.29
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 6.71
    Columns("F:F").ColumnWidth = 5
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").ColumnWidth = 6
    Columns("I:I").ColumnWidth = 5.43
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("6").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmsumaq.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmissue.xls"
    Windows("atmissue.xls").Activate
    Columns("A:A").ColumnWidth = 14
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 0.75
    Columns("C:C").ColumnWidth = 8.71
    Columns("D:D").ColumnWidth = 8.14
    Columns("E:E").ColumnWidth = 6.57
    Columns("F:F").ColumnWidth = 9.29
    Columns("G:G").ColumnWidth = 16.14
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 6.71
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("7").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmissue.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atminqis.xls"
    Columns("A:A").ColumnWidth = 14
    Columns("B:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").ColumnWidth = 0.92
    Columns("F:F").ColumnWidth = 16.14
    Columns("G:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").ColumnWidth = 4.71
    Columns("C:C").ColumnWidth = 8.43
    Columns("D:D").ColumnWidth = 6.43
    Columns("E:E").ColumnWidth = 7.86
    Columns("G:G").ColumnWidth = 3
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("11").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atminqis.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atminqaq.xls"
    Windows("atminqaq.xls").Activate
    Columns("A:A").ColumnWidth = 14.43
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 17
    Columns("C:C").ColumnWidth = 0.92
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 3.43
    Columns("E:E").ColumnWidth = 5.71
    Columns("F:F").ColumnWidth = 8.43
    Columns("G:G").ColumnWidth = 6
    Columns("H:H").ColumnWidth = 5.43
    Columns("I:I").ColumnWidth = 8
    Range("I2").Select
    Columns("J:J").ColumnWidth = 10
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("8").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atminqaq.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmdecis.xls"
    Windows("atmdecis.xls").Activate
    Columns("A:A").ColumnWidth = 13.71
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 15.86
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 1.29
    Columns("D:D").ColumnWidth = 7.14
    Columns("E:E").ColumnWidth = 8.71
    Columns("F:F").ColumnWidth = 5.86
    Columns("G:G").ColumnWidth = 7.29
    Columns("H:H").ColumnWidth = 3.86
    Columns("I:I").ColumnWidth = 2.15
    Columns("J:J").ColumnWidth = 2.15
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("9").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmdecis.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmdecaq.xls"
    Windows("atmdecaq.xls").Activate
    Columns("A:A").ColumnWidth = 14.14
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 16.86
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 1.14
    Columns("D:D").ColumnWidth = 8.29
    Columns("E:E").ColumnWidth = 8.43
    Columns("F:F").ColumnWidth = 6.14
    Columns("G:G").ColumnWidth = 7.14
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 3.14
    Columns("I:I").ColumnWidth = 4.14
    Columns("J:J").ColumnWidth = 5.71
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("10").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmdecaq.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Windows("ATM.xls").Activate
    Sheets("1").Select
    Range("A1").Select
    ActiveWorkbook.Saved = False
    
End Sub