WebQuery Opening New Page

I am running this excel app on a coporate intranet. I have automated an internet explorer object ie

Dim IeApp As InternetExplorer
Dim sURL As String
Dim sURL2 As String
Dim IeDoc As Object
Dim iedoc2 As Object
Dim i As Long
Dim nm As String
Dim searchperson As Variant
searchperson = Sheets("sheet2"). Range("c10").Value
Set IeApp = New InternetExplorer
IeApp.Visible = False
sURL = "http://emd.uswc.uswest.com/emd/index.html"
sURL2 = "http://emd.uswc.uswest.com/emd/search.html"
IeApp.navigate sURL....................................