Thanks to Reuel for your reply to an old post of mine. It had mostly
cleared up on a newer computer but has now raised its head again... I
can only imagine because of the scheer number of lines in the
spreadsheet (processing 360 lines now)... the piece of code that
sometimes goes wrong is...

Sheets("MonthlyReceipts").Copy After:=Sheets(2) 'because I don't want
to redo the changes I am making with the macro
ActiveSheet.Unprotect
'because it is protected

ActiveSheet.Columns("E:E").Delete 'just because

'Deletes all 'blank'
ActiveSheet.Range("A9:E9").AutoFilter Field:=5, Criteria1:="="
'this does filter column E to only show blanks but then causes the
error

ActiveSheet.AutoFilter.Range.Select
'this would delete the blank rows and the first row of the
Filter
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete

Most of the time it is fine but now it is Filtering over 300 rows it
errors everytime.

Any help...