Sub CommandButton1_Click() 'create a new window

Dim web As String
Dim AccountCol As Integer
   Account_Col = 5
   Switch_Col = 7
   web = Sheets("sheet3").Range("B1").Value
   DoBrowse1 web
End Sub


Sub DoBrowse1(url As String)
Dim TargetFrame As String
Set BTS = CreateObject("Internetexplorer.Application")
BTS.Visible = True
BTS.Navigate url
End Sub

Private Sub CommandButton3_Click()
Dim i_CurRow As Integer


i_CurRow = ActiveCell.Row
'ActiveSheet.Cells(Row, col_ANONYMOUSCALL).Value = "YES"
T_Account = ActiveSheet.Cells(i_CurRow, Account_Col).Value
'T_Account = Sheets("Main").Cells(i_CurRow, Account_Col).Value
T_Switch = ActiveSheet.Cells(i_CurRow, Switch_Col).Value


If Not BTS Is Nothing Then
   whatpage (BTS)
End If


If Not BTS.Visible = True Then
   BTS.Visible = True
End If


  With BTS.document.BTSQueryBean  'document name = "BTS" form name =
"BTSQueryBean"
  .btsswitch.Value = Trim(T_Switch)
   .ACCTNO.Value = Trim(T_Account)
   .billingsys(1).Click
   .submit '.Click
    End With
  ' calls BTS Detail screen
 'waiting (40)
  WaitReady
  waiting (2)
 spage = BTS.document.DocumentElement.outerHTML
 CMTSValue = BTS.document.BTSDetailBean.CMTS.Value
 AcctValue = BTS.document.BTSDetailBean.ACCTNO.Value
End Sub

Private Sub FeaturesLine1_Click()
  With BTS.document.BTSDetailBean  'document name = "BTS" form name =
"BTSDetailBean"
   .featid0.Click    'This launched the features screen, which I
cannot control!<<<<<<
End With


End Sub

function launchFeatures(a, b, c, i, catg, act, racfpilot)
{
   var m,u;
   var tn =  document.BTSDetailBean.subservtn[i].value;
   if ( tn == null || tn == "" )
   {
      alert ("Please enter subscriber telephone number")
      return false;
    }


   u = "./feature.jsp?subidx=" + a + "&clli=" + b + "&subid=" + c +
"&subtn=" + tn + "&catg=" + catg + "&action=" + act +
"&racfpilotcode=" + racfpilot;
   MM_openBrWindow(u,'locked','scrollbars=1,resizable=1');
   return true;


}