IE Tabs schließen per "Document.Title"

Sub CloseTabs()
Dim objWindow As Object
Dim objShell As Object
On Error GoTo Fin
Set objShell = CreateObject("Shell.Application")
For Each objWindow In objShell.Windows
'If objWindow.LocationName Like "*" & "Amazon" & "*" Then objWindow.Quit
If objWindow.document.Title Like "*" & "Amazon" & "*" Then objWindow.Quit
Next objWindow
Fin:
Set objShell = Nothing
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub