在列中搜索字符串的一部分并删除vba代码中的行

Question

我正在搜索字符串的一部分，并且只根据字符串的一部分，它必须删除该行。 我有超过10000行。请考虑并编写代码 样本数据：

      A               B                C
    Fname            Lname            Username
1. Thomas            Frauen           thomas@gmail.com
2. anne              schmidt          anne@rediff.com
3. olaf              geissler         olaf@yahoo.com

我只知道用户名字符串部分，即＆＃34; @ yahoo.com＆＃34; 。想删除第3行。

这是我的代码。

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
row_number = 1

username = sheets("sheet1").Range("C" & row_number)

if instr(username, "*@yahoo.com*") = true then
   Sheets("sheet1").Rows(row_number & ":" & row_number).Delete
   row_number = row_number - 1
End If

任何人都可以帮助我，请帮忙。