Dropdown list not getting updated while inputting the data from excel

Sub adprty1 Dim iexplore Dim w5 Dim p Dim xlSheet Delay 3000   Set iexplore = Sys.Process("iexplore", 2).Page("http://qaserver/Default.asp").document.frames....