Sub E3_Journal_1_New()
'
' E3_Journal_1_New Macro
'
'
Sheets("E3").Select
Sheets("Journal").Visible = True
Sheets("Journal").Select
Range("C6:E7").Select
Selection.Copy
Range("C6:E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C8").Select
Application.CutCopyMode = False
Sheets("E3").Select
ActiveWindow.SmallScroll Down:=27
Rows("48:61").Select
Selection.EntireRow.Hidden = False
Range("A36:M46").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=12
Range("A49").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-6
Range("B37:B46").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E37:J46").Select
Selection.ClearContents
Range("M37:M46").Select
Selection.ClearContents
Rows("50:59").Select
Selection.Copy
Sheets("Journal").Select
Rows("12:12").Select
Selection.Insert Shift:=xlDown
Range("A12:N21").Select
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Range("N12:N21").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range("A12").Select
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("Journal").Copy Before:=wb.Sheets(1)
wb.SaveAs "C:\Users\Andrew\Documents\Journals YE 31 May 2019.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Windows("Journals YE 31 May 2019.xlsm").Activate
ActiveSheet.Shapes.Range(Array("Button 4")).Select
Selection.OnAction = "Sheet12.Delete_Blank_Rows"
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Selection.OnAction = "Sheet12.ResetFilters"
ActiveSheet.Shapes.Range(Array("Button 3")).Select
Selection.OnAction = "Sheet12.Unposted_Journals"
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.OnAction = "Sheet12.Search_For_Date"
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Range("A12").Select
ActiveWindow.SmallScroll Down:=-15
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Journal").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("E3").Select
Range("A49:M60").Select
Selection.Locked = True
ActiveWindow.SmallScroll Down:=-12
Range("B37").Select
End Sub