Run time error 2147417848

hey guys,

I get the above error with the message: The object invoked has disconnected from its clients.

I'm using this complex excel worksheet which was created by a guy before me. So I'm not sure what's happening inside of it in terms of codes.

It was running perfectly fine without errors until today, and spits out the above error.

debugging shows this.

Sub DeleteRowsBasedOnCriteria()
With ActiveSheet
If .AutoFilterMode = False Then .Cells(1, 1).AutoFilter
.Range("A1").AutoFilter Field:=10, Criteria1:="0.000000"
.Range("A1").CurrentRegion.Offset(1, 0).SpecialCells _
(xlCellTypeVisible).EntireRow.Delete
End With
End Sub

underlined line is the yellow highlighted line in the VBA as error.

And also I tried running this on Excel2003 and it worked without problems. So my problem is how come it's not running on 2010.

Running on Excel2010 is the purpose and clients have the same.


any help would be appreciated.

Dilla