How to close a Window obj with a "text:="& ReportName

[mv8167]

Currently, the code below close all of my objects with micclaasss = window. I need to close a Window obj with a "text:="& ReportName & ".*" only.

How do I add this in?

Code:

Sub CloseWindow (ReportName)

   'CLOSE REPORTNAME BROWSER
        Set oWindow=Description.Create()
        oWindow("micclass").Value="Window"
        Set obj=Desktop.ChildObjects(oWindow)
        For i=0 to obj.Count-1
        obj(i).Close
        Next

End Sub

Do i just add:
oWindow("text").Value=ReportName