I am blinded, i am gonna try, see if the code below helps?
Code:
SiebApplication("Siebel Call Center").SetTimeOut(10)
Reporter.Filter = 3
On Error resume Next
SiebApplication("Siebel Call Center").SiebScreen("Service - R5").SiebView("Service Request Field").SiebApplet("Service Request_2").SiebPicklist("Status").Select "Ready for Service"
Reporter.Filter = 0
Err.Clear
Browser("Siebel Call Center").Dialog("Windows Internet Explorer_3").WinButton("OK").Click
wait 2
Browser("Siebel Call Center").Dialog("Windows Internet Explorer_3").WinButton("OK").Click
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.

