运行时错误91当试图找到

Question

我运行时出现运行时错误91。谁能告诉我我要去哪里？

Sub deletingstuff2() 

Application.ScreenUpdating = False 
Dim i As Long, lngEndRowInv As Long, wsh As Worksheet 
Set wsh = ThisWorkbook.ActiveSheet 
i = 1 
lngEndRowInv = wsh.Range("C" & Rows.Count).End(xlUp).Row **<<ERROR IS HERE** 

While i <= lngEndRowInv 
If Cells(i, "C") = "Blue" Then 
Cells(i, "C").EntireRow.Delete 
ElseIf Cells(i, "C") = "Diamond" Then 
Cells(i, "C").EntireRow.Delete 
i = i - 1 
lngEndRowInv = lngEndRowInv - 1 
End If 
i = i + 1 
Wend 
end sub 

Answer 1

显然你的意思wsh.Rows.Count，不Rows.Count。