User-defined type not defined

[detriez]

I've got a named range (nPersonalEmailDomain) with email domains... gmail.com, yahoo.com etc
I need to delete the entire row where an email in Column C is on the nPersonalEmailDomain list

So, If an email in Column C = bob@gmail.com, delete the entire row

This code fails with Compile Error: User-defined type not defined at Dim nRng As Range, rng As Range, c As Cell, n As Cell

Sub PersonalEmails(Control As IRibbonControl)
Dim nRng As Range, rng As Range, c As Cell, n As Cell

Set nRng = Range("nPersonalEmailDomain") 'my named range containing the list of personal email domains
Set rng = Range("C2", ActiveSheet.Cells(Rows.Count, "c").End(xlUp)) 'get col C parameters

For Each c In rng 'Look at each item in col C
  For Each n In nRng
    If InStr(c.Text, n.Text) > 0 Then
      c.EntireRow.Delete 'Delete rows with match to named range
      Exit For
    End If
  Next
Next

End Sub

 

[Norie]

There is no Cell type, change Cell to Range.

 

[detriez]

Thanks @Norie That resolved my issue (final code below if anyone can use it)

This may not be the most efficient way to do this as it hangs for about 8 minutes before it finally completes

I will start a new thread for help

Sub PersonalEmails(Control As IRibbonControl)

Dim nRng As Range, rng As Range, c As Range, n As Range

Set nRng = Range("nPersonalEmailDomain") 'my named range containing the list of personal email domains
Set rng = Range("C2", ActiveSheet.Cells(Rows.Count, "c").End(xlUp)) 'get col C parameters

For Each c In rng 'Look at each item in col C
  For Each n In nRng
    If InStr(c.Text, n.Text) > 0 Then
      c.EntireRow.Delete 'Delete rows with match to named range
      Exit For
    End If
  Next
Next

End Sub

 

[Norie]

Instead of 2 loops you should have one loop for the range you are checking.

Within that loop you could use Application.Match to check if the value in column C is in the range 'nPersonalEmailDomain.