'End Excel process Dim xlProcess As New System.Diagnostics.Process For Each xlProcess In System.Diagnostics.Process.GetProcesses If xlProcess.ProcessName.ToUpper.Equals ( "EXCEL") Then' End excel process xlProcess.Kill () End If Next