VBA: Remove all items from Scripting Dictionary

[FryGirl]

How to remove all from the scripting dictionary when running to separate extractions? I've read where you can use dict.removeall, but in this case, dict was not declared. Does it need to be declared somehow?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]    With CreateObject("scripting.dictionary")[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]        For Each Cl In rng
            If Mid(Cl.Value, 4, 1) = "X" Then
                .Item(Cl.Value) = Empty
            End If
        Next Cl
        Sheet3.Range("AV8").Resize(.Count).Value = WorksheetFunction.Transpose(.keys)
        
        For Each Cl In rng
            If Left(Cl.Value, 1) = 0 Then
                .Item(Cl.Value) = Empty
            End If
        Next Cl
        Sheet3.Range("AZ8").Resize(.Count).Value = WorksheetFunction.Transpose(.keys)
    
    End With
[/FONT]

 

[Rick Rothstein]

Untested but why can't you use .RemoveAll within the dictionary's With..EndWith block (just like you did for the .Item property)?

 

[FryGirl]

Yes Rick. That was it. Thanks.