Sub extn()
'
' extn Macro
'
' Keyboard Shortcut: Ctrl+q
'
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
ActiveWindow.ScrollWorkbookTabs Sheets:=-24
ActiveWindow.ScrollWorkbookTabs Sheets:=-10
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Jul1"
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Jul2"
Sheets("Sheet3").Select
Sheets("Sheet3").Name = "Jul3"
Sheets("Sheet4").Select
Sheets("Sheet4").Name = "Jul4"
Sheets("Sheet5").Select
Sheets("Sheet5").Name = "Jul5"
Sheets("Sheet6").Select
Sheets("Sheet6").Name = "Jul6"
Sheets("Sheet7").Select
Sheets("Sheet7").Name = "Jul7"
Sheets("Sheet8").Select
Sheets("Sheet8").Name = "Jul8"
Sheets("Sheet9").Select
Sheets("Sheet9").Name = "Aug1"
Sheets("Sheet10").Select
Sheets("Sheet10").Name = "Aug2"
Sheets("Sheet11").Select
Sheets("Sheet11").Name = "Aug3"
Sheets("Sheet12").Select
Sheets("Sheet12").Name = "Aug4"
Sheets("Sheet13").Select
Sheets("Sheet13").Name = "Aug5"
Sheets("Sheet14").Select
Sheets("Sheet14").Name = "Aug6"
Sheets("Sheet15").Select
Sheets("Sheet15").Name = "Aug7"
Sheets("Sheet16").Select
Sheets("Sheet16").Name = "Aug8"
Sheets("Sheet17").Select
Sheets("Sheet17").Name = "Sep1"
Sheets("Sheet18").Select
Sheets("Sheet18").Name = "Sep2"
Sheets("Sheet19").Select
Sheets("Sheet19").Name = "Sep3"
Sheets("Sheet20").Select
Sheets("Sheet20").Name = "Sep4"
Sheets("Sheet21").Select
Sheets("Sheet21").Name = "Sep5"
Sheets("Sheet22").Select
Sheets("Sheet22").Name = "Sep6"
Sheets("Sheet23").Select
Sheets("Sheet23").Name = "Sep7"
Sheets("Sheet24").Select
Sheets("Sheet24").Name = "Sep8"
Sheets("Sheet25").Select
Sheets("Sheet25").Name = "Oct1"
Sheets("Sheet27").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=7
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Sheet26").Select
Sheets("Sheet26").Name = "Oct2"
Sheets("Sheet27").Select
Sheets("Sheet27").Name = "Oct3"
Sheets("Sheet28").Select
Sheets("Sheet28").Name = "Oct4"
Sheets("Sheet29").Select
Sheets("Sheet29").Name = "Oct5"
Sheets("Sheet30").Select
Sheets("Sheet30").Name = "Oct6"
Sheets("Sheet31").Select
Sheets("Sheet31").Name = "Oct7"
Sheets("Sheet32").Select
Sheets("Sheet32").Name = "Oct8"
Sheets("Sheet33").Select
Sheets("Sheet33").Name = "Nov1"
Sheets("Sheet34").Select
Sheets("Sheet34").Name = "Nov2"
Sheets("Sheet35").Select
Sheets("Sheet35").Name = "Nov3"
Sheets("Sheet36").Select
Sheets("Sheet36").Name = "Nov4"
Sheets("Sheet37").Select
Sheets("Sheet37").Name = "Nov5"
Sheets("Sheet38").Select
Sheets("Sheet38").Name = "Nov6"
Sheets("Sheet39").Select
Sheets("Sheet39").Name = "Nov7"
Sheets("Sheet40").Select
Sheets("Sheet40").Name = "Nov8"
ActiveWindow.ScrollWorkbookTabs Sheets:=10
Sheets("Sheet41").Select
Sheets("Sheet41").Name = "Dec1"
Sheets("Sheet42").Select
Sheets("Sheet42").Name = "Dec2"
Sheets("Sheet43").Select
Sheets("Sheet43").Name = "Dec3"
Sheets("Sheet44").Select
Sheets("Sheet44").Name = "Dec4"
Sheets("Sheet45").Select
Sheets("Sheet45").Name = "Dec5"
Sheets("Sheet46").Select
Sheets("Sheet46").Name = "Dec6"
Sheets("Sheet47").Select
Sheets("Sheet47").Name = "Dec7"
Sheets("Sheet48").Select
Sheets("Sheet48").Name = "Dec8"
Range("P22").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-25
ActiveWindow.ScrollWorkbookTabs Sheets:=-13
Sheets("Jun8").Select
Cells.Select
Selection.Copy
Sheets("Jul1").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Jul1", "Jul2", "Jul3", "Jul4", "Jul5", "Jul6", "Jul7", "Jul8", "Aug1", _
"Aug2", "Aug3", "Aug4", "Aug5", "Aug6", "Aug7", "Aug8", "Sep1", "Sep2", "Sep3", "Sep4", _
"Sep5", "Sep6", "Sep7", "Sep8", "Oct1")).Select
Sheets("Jul1").Activate
Sheets(Array("Oct2", "Oct3", "Oct4", "Oct5", "Oct6", "Oct7", "Oct8", "Nov1", "Nov2", _
"Nov3", "Nov4", "Nov5", "Nov6", "Nov7", "Nov8", "Dec1", "Dec2", "Dec3", "Dec4", "Dec5", _
"Dec6", "Dec7", "Dec8")).Select Replace:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Range("B6:H13").Select
Application.CutCopyMode = False
Range("B5").Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
Range("G4:H4").Select
ActiveWindow.LargeScroll Down:=1
Range("B30:H40").Select
ActiveWindow.LargeScroll Down:=1
Range("A58:E58").Select
ActiveWindow.LargeScroll Down:=-1
Range("A30:A40").Select
ActiveWindow.LargeScroll Down:=-1
Range("A3").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Dec8").Select
Range("B16:H28").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-23
Sheets("Jun7").Select
End Sub
Bookmarks