How to minimze the script

[basanth27]

Code:

Set oRobj = Browser("xxxxx").Page("xxxx").Frame("xxxxx") 'write this as the first line
' -- Do a Find and Replace , would look like below.
oRobj.Weblist("xx").Select "xxx"

Set oRobj = Nothing ' -- Write this at the 500th line