taskkill /F /IM excel.exe

            Set xl = GetObject(, "excel.application")
            On Error GoTo 0
            If Not xl Is Nothing Then
                MsgBox "There are some Excel files still opened. These will be closed now.", vbExclamation
                For Each xbk In xl.Workbooks
                    If xbk.Saved = True Then
                        xbk.Close
                    Else:
                        If MsgBox("File " & xbk.Name & " will be closed. Do you want to save it?", vbExclamation + vbYesNo, "Closing file...") = vbYes Then
                            xbk.Close (True)
                        Else:
                            xbk.Close (False)
                        End If
                    End If
                Next
            End If
            xl.Quit
            Set xl = Nothing