'========================================

Sub zBro_CloseAll
	print "Bro_CloseAll"
	
	Dim oBrowserDesc, oBrowsers, iBrowserCount, iBrowserIndex, sBrowserName
   
	Set oBrowserDesc = Description.Create 
        
	oBrowserDesc("micclass").Value = "Browser" 

	Set oBrowsers = Desktop.ChildObjects(oBrowserDesc) 

	iBrowserCount = oBrowsers.Count 
    
	If iBrowserCount = 0 Then 
		'Print "BrowserCloseAll - There are no browsers open"

	Else
		'Print "BrowserCloseAll - Open Browser Count: " & cStr(iBrowserCount)
	
		For iBrowserIndex = 0 To iBrowserCount - 1 
			
			'sBrowserName = oBrowsers(iBrowserIndex).getroproperty("name")
			
			'Print "BrowserCloseAll - Closing: " & sBrowserName
			
			oBrowsers(iBrowserIndex).Close
		
		Next
	
	End If 
	
	Set oBrowsers = Nothing
	Set oBrowserDesc = Nothing
   
End Sub

'========================================