Dim p As Process
        For Each p In Process.GetProcesses
            Try
                If p.ProcessName = "EXCEL" Or p.ProcessName = "EXCEL.EXE" Then
                    MsgBox(p.ProcessName)
                    p.Close()
                End If
            Catch
                ' 
            End Try
        Next