Solución 21.2 Crear una consulta simple sobre una página web

Sub borraConsultas ()  
    Dim intQ As Integer  
    On Error Resume Next  
    For intQ = 1 To 100  
         ActiveWorkbook.Queries(intQ).Delete  
         ActiveSheet.ListObjects(intQ).Delete  
    Next intQ  
End Sub  
-----------------------------------------------------------------  
Sub Todo_IBEX35()  
    Dim qtIBEX35 As QueryTable  
    Dim strFormula As String  
    Call borraConsultas 
      
    strFormula = "let" & vbCrLf & _  
    "    Source =    ...