Dear All,
I am trying to delete rows that contain any one of the following names e.g. "United Kingdom".
My VBA code is as follows:

Code:
Workbooks("VAR_test.xls").Activate
    
    Dim badnames As New Collection
    badnames.Add key1, "Germany"
    badnames.Add key1, "United Kingdom"
    badnames.Add key1, "United Stated of America"
    badnames.Add key1, "United States of America"
    badnames.Add key1, "Japan"
    

    Dim CreditSheet As Worksheet
    Set CreditSheet = Worksheets("Risk Report Output")
    Dim Folder As Range
    Set Folder = CreditSheet.Range("S6:S1000")
    Dim c As Range
    
    Dim totalNumRows As Integer
    totalNumRows = 1000
    
   For r = 5 To totalNumRows
        
        
        Set c = CreditSheet.Cells(r, 19)
        On Error GoTo notbad
        If badnames.Item(c.Value) = key1 Then
            CreditSheet.Rows(c.Row).Delete
            r = r - 1
            totalNumRows = totalNumRows - 1
        End If
        
        GoTo donethat

notbad:
    Resume donethat
        
donethat:

    Next

End Sub
I have no idea why this is refusing to delete the appropriate lines... using the debugger the "key1" tag is showing to be empty even though I have assigned them ?

Your help will be appreciated.
regards

mp16