I have the below code that is falling over with Object Required
It deletes all the items it is looking for and if there is other data in the cell it continues through to the next piece of code but if all the cells are blank it fall over.
Can an expert help please
Set SrchRng = ActiveSheet.Range("A2", ActiveSheet.Range("A65536").End(xlUp))
Set c = SrchRng.Find("GD Market*", LookIn:=xlValues)
If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing
If ActiveCell = "" Then Exit Sub