Hi All,

I have a button on my excel sheet with a this code behind it. when I click on this button it pops up a window asking and after I input it takes me to an appropriate page.
The problem I am having is after few seconds later it opens that popup window again. I don't want to have the popup window opening after the first click. In other words it should only open when clicked.

Private Sub CommandButton1_Click()
Dim ans As String
Dim mysite As String

ans = InputBox("Please enter Part Number?")

Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True

mysite = "http://www.yahoo.com/WSearch.aspx?Wchar=Y&searchText=" & ans

.Navigate mysite
Do Until .ReadyState = 4: DoEvents: Loop

ans = InputBox("Part Number?")
If ans = "" Then Exit Sub

End With

End Sub

Any suggestions?

Thanks

Hi

Difficult to be certain how this is suppose to work, but pehaps this is what you had in mind
??

I also think you should have some data validation on the user input (ans)!!

MTB