diff --git a/app/DD_Clipboard_Searcher/ClassInit.vb b/app/DD_Clipboard_Searcher/ClassInit.vb
index 8909423..f4f9c1e 100644
--- a/app/DD_Clipboard_Searcher/ClassInit.vb
+++ b/app/DD_Clipboard_Searcher/ClassInit.vb
@@ -64,16 +64,6 @@ Public Class ClassInit
         Return True
     End Function
 
-    Public Function InitAutomation() As Boolean
-        Try
-            Automation = New ClassAutomation(LogConfig)
-            Return True
-        Catch ex As Exception
-            Logger.Error(ex)
-            Return False
-        End Try
-    End Function
-
     Private Function DecryptConnectionString(EncryptedConnectionString As String) As String
         Dim oBuilder As New SqlClient.SqlConnectionStringBuilder With {
             .ConnectionString = EncryptedConnectionString
diff --git a/app/DD_Clipboard_Searcher/frmSplash.vb b/app/DD_Clipboard_Searcher/frmSplash.vb
index 0700919..9f1116f 100644
--- a/app/DD_Clipboard_Searcher/frmSplash.vb
+++ b/app/DD_Clipboard_Searcher/frmSplash.vb
@@ -1,7 +1,7 @@
 Imports System.ComponentModel
 Imports System.Threading
 Public NotInheritable Class frmSplash
-    Private InitSteps As Integer = 4
+    Private InitSteps As Integer = 3
     Private Worker As New BackgroundWorker()
     Private MainForm As Form
 
@@ -60,11 +60,6 @@ Public NotInheritable Class frmSplash
                 ERROR_INIT = "DATABASE"
             End If
 
-            Worker.ReportProgress(CalcProgress(4), "Initializing Automation")
-            If Init.InitAutomation() = False Then
-                ERROR_INIT = "AUTOMATION"
-            End If
-
         Catch ex As Exception
             MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try