Debug.Print "Line: " & Erl & " Error No.MsgBox "Macro exited.", vbExclamation, "Stopped!".MsgBox "Refresh completed !!" & vbCrLf & vbCrLf & "Time elapsed: " & Minute(Elapsed) & " minutes " & Second(Elapsed) & " seconds", vbInformation.ActiveWorkbook.SaveAs FileName:=Filepath & Replace(ActiveWorkbook.Name, "ver_3.0_LIVE.xlsm", Format(Date, "mm") & "_" & Format(Date, "dd") & ".xlsx"), FileFormat:=51, AccessMode:=xlShared.Filepath = "R:\SJE Shared\DMU\Data Checking\" & Year(Date) & "\Q" & Quarter & "\Gross Premium\".Paste Destination:=Sheets(Branch_Name).Range("C1") Columns("A:B").EntireColumn.Hidden = True Columns("A:AB").PasteSpecial Paste:=xlPasteValues
Columns("AA").EntireColumn.HorizontalAlignment = xlCenter Columns("V").EntireColumn.HorizontalAlignment = xlCenter
Cells(4, 20).HorizontalAlignment = xlCenter Cells(3, 20).HorizontalAlignment = xlCenter Cells(2, 20).HorizontalAlignment = xlCenter Columns(24).PasteSpecial Paste:=xlPasteFormats Cells(2, 2).Value = "Currency: UK - GBP, Non UK - EUR" Cells(1, 2).Value = Branch_Name & " - Q" & Quarter & " " & Year(Date) Cells(Rows.Count, 1).End(xlUp).Offset(0, 11)).PasteSpecial Paste:=xlPasteFormats Worksheets("List").Range("TableHeaders2").Copy Destination:=Sheets(Branch_Name).Cells(16, 1).If Len(str1) > Len(str2) And InStr(str1, str2) Then.Selection.PasteSpecial Paste:=xlPasteAll.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select.Range(Cells(copy_start, 1), Cells(copy_end, 22)).Copy.If Cells(k, 19).Value = "CHECK" Or Cells(k, 22).Value = "CHECK" Then.For k = Cells.Find(What:="INSURED NAME").Row + 1 To Cells(Rows.Count, 1).End(xlUp).Row.copy_start = Cells.Find(What:="INSURED NAME").Row + 1.Worksheets(Branch_Name).Cells(1, 1).PasteSpecial Paste:=xlPasteColumnWidths.Worksheets("Policy").Range("ColumnWidths").Copy.Worksheets("Policy").Range("TableHeaders").Copy Destination:=Sheets(Branch_Name).Cells(16, 1).ActiveWorkbook.SlicerCaches("Slicer_BRANCH_NAME2").VisibleSlicerItemsList = Array(cond3).For i = 1 To 7 'When testing please change.ActiveWorkbook.SlicerCaches("Slicer_Policy_UW_Month2").VisibleSlicerItemsList = Array(cond1).Set Logo = Sheets("List").Shapes("Picture 2").Branch = Worksheets("List").Range("Branch").Application.Calculation = xlCalculationManual.f = Application.GetOpenFilename(Title:="Select File").Application.EnableCancelKey = xlErrorHandler.Dim copy_start As Long, copy_end As Long.Dim Branch_Name As String, Branch As Variant.Dim FileName As String, Filepath As String.
Dim StartTime As Date, StopTime As Date, Elapsed As Date.Dim Events As Boolean, Calc As Integer, ScrnUpd As Boolean, Alerts As Boolean.