ho to use the flag NAVNOHISTORY

[luca90]

... Just this
My problem:
During the macro work from all record scanned maked a new link into History link (Chronology of visisted page into IE)... I have into official sheet 9118 record. 9118 = 9118 history link!!!!!!!!!!
Is possible to not insert all link into hiostory link of IE?

This is a piece of my recod:
column A and column B

01000 03246
01005 01009
01005 02401
01005 02602
01005 02806
01005 02808
01005 03251
01005 03418
01005 04606
01005 10202
01005 11703
01005 11711
01005 13801
01005 14501
01005 14801
01005 39102
01005 40100
01005 58020
01005 58480
01005 73160
01010 01007
01010 01008
01010 01600
01010 01601
01010 01602
01010 01603
01010 01604
01010 01605
01010 01606
01010 01607
01010 01608
01010 01609
01010 01610
01010 01611
01010 01612
01010 01615
01010 02400
01010 02403
01010 02800
01010 02802
01010 02803
01010 03000
01010 03001
01010 03002
01010 03003
01010 03200
01010 03202
01010 03203
01010 03204

Sub RICERCA_ABI_CAB()
'HANS
    Dim IE As Object
    Dim lngRow As Long
    Dim lngMaxRow As Long
    Dim wksList As Worksheet
 
    Set wksList = ActiveWorkbook.Worksheets("ABICAB")
    Set IE = CreateObject("InternetExplorer.Application")
 
    On Error GoTo errHandler
    lngMaxRow = Range("A65536").End(xlUp).Row
    With IE
        .Visible = True
        For lngRow = 2 To lngMaxRow
 
            .Navigate2 "http://www.bancaroma.it/abicab/index.asp"
 
            Do While .busy
                DoEvents
            Loop
            Do While .ReadyState <> 4
                DoEvents
            Loop
 
            If wksList.Cells(lngRow, 3).Value = "" Then
 
                With .document.Forms(0)
                    'Abi
                    .ABI.Value = Range("A" & lngRow)
                    'Cab
                    .CAB.Value = Range("B" & lngRow)
                    .submit
 
                    Application.StatusBar = "Processing row " & lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count
 
                End With
                
                Do While Not CBool(InStrB(1, .document.URL, "?search"))
 
                    DoEvents
                Loop
                
                Do While .busy
                    DoEvents
                Loop
                Do While .ReadyState <> 4
                    DoEvents
                Loop
                On Error Resume Next
                              
                'CONSIDERARE PRIMA CELLA COME POSISZIONE "ZERO"
                Range("C" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(0).Cells(3).innerText)
                Range("D" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(1).Cells(3).innerText)
                Range("E" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(2).Cells(1).innerText)
                Range("F" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(3).Cells(1).innerText)
                Range("G" & lngRow) = Format(UCase(.document.all.tags("table").Item(1).Rows(4).Cells(1).innerText), "#00000")
                                
                If Range("C" & lngRow) > 0 Then
                    Range("H" & lngRow) = "OK"
                End If
                
                On Error GoTo errHandler
            End If
        Next lngRow
    End With
 
errHandler:
    IE.Quit
    Set IE = Nothing
 
    Exit Sub
 
    ActiveWorkbook.Save
 
End Sub