Sub Automate_Export()
    Dim Last_Run As Date
    Dim Next_Run As Date
    Dim Today_Date As Date
    Dim Override_Check As String
    
    Application.DisplayAlerts = False
        
    Last_Run = Worksheets("Report").Range("R1").Value
    Next_Run = Worksheets("Report").Range("R2").Value
    Today_Date = Worksheets("Report").Range("J1").Value
        
    If Today_Date >= Next_Run Then
        Worksheets("Report").Range("i3").Value = Today_Date
        Export_PDF
    
    End If
    
    Last_Run = Today_Date
    Range("R1").Value = Last_Run
    
    ThisWorkbook.Save
    
    Application.DisplayAlerts = True

    Override_Check = Worksheets("Report").Range("N4").Value
    
    If Override_Check <> "x" Then
        Application.Quit
    Else: MsgBox ("Auto-shutdown overridden!")
    End If
    
    
    



End Sub







Sub HideColumns()

    ActiveSheet.Range("J:ALE").EntireColumn.Hidden = True



End Sub




Sub UnHideColumns()

    ActiveSheet.Range("J:ALE").EntireColumn.Hidden = False



End Sub



Function FileExists(ByVal FileToTest As String) As Boolean
   FileExists = (Dir(FileToTest) <> "")
End Function




Sub Export_PDF()
    Dim ExportFilename As String
    Dim FileToDelete As String
    Dim RowCounter As Integer
    
    
    'Update all links
    'ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
    ActiveWorkbook.RefreshAll
    
    'Fix Worry Log
    Worksheets("Report").Activate
    Rows("130:154").EntireRow.Hidden = False
    Rows("130:154").EntireRow.AutoFit
    For RowCounter = 130 To 154
        If Cells(RowCounter, 10).Value = 0 Then
            Rows(RowCounter).EntireRow.Hidden = True
        End If
    Next RowCounter
    
    
    'Export PDF
    Worksheets("Report").Activate
    
    ExportFilename = Range("L1").Value & Range("L2").Value
    FileToDelete = ExportFilename & ".pdf"
    
    If FileExists(FileToDelete) Then 'See above
      ' First remove readonly attribute, if set
      SetAttr FileToDelete, vbNormal
      ' Then delete the file
      Kill FileToDelete
    End If
    
    HideColumns
    
    
    
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ExportFilename, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, _
        Openafterpublish:=False
        

    UnHideColumns


End Sub