Endless Loop

[nniedzielski]

I seem to have stuck myself into an endless loop, and i cannot seem to figure out where or why this is happening.

For i = 1 To UBound(Items, 1)
        x = 2
            For Each Item In ArrayDictionaryofItems.keys
            Sheets("Data").UsedRange.AutoFilter field:=10, Criteria1:=Item
            Sheets.Add(Before:=Sheets(1)).Name = Item
            Sheets("Data").Select
            Range("A1" & ":" & "Y" & erow).SpecialCells(xlCellTypeVisible).Copy
            Sheets(Item).Range("A1" & ":" & "Y1").PasteSpecial Paste:=xlPasteAll
            Application.CutCopyMode = False
            
            x = x + 1
            Next Item
    Next i

 

[Marc L]

It's a challenge for some mind readers forum without the entire procedure neither an attachment !​

​

And maybe it's not an endless loop as Excel may be slow so it just needs some time​

in particular when using a dictionary, filtering, copying instead of a quick & easy advanced filter …​

 

[JEC]

Can you upload your complete code?
Also don't use names which could conflict with the vba library. Change "Item" to "It" for example

 

[Fluff]

I doubt it's an endless loop, it just seems like it as you dictionary is populated from the Items array, so just get rid of the For i= loop.