Private Sub excelProcessBeenden()
 
        Dim procs() As Process = Process.GetProcesses
        Dim i As Integer
 
        For i = 0 To (procs.Length - 1)
            If procs(i).ProcessName.ToUpper = "EXCEL" Then
                If Not procs(i).HasExited Then
                    If procs(i).MainWindowHandle.ToString = 0 Then
                        procs(i).Kill()
                    Else
                        Exit Sub
                    End If
                End If
            End If
        Next
 
    End Sub