Strange Problem - Step Into fine, Run fails

[hdbkiwi]

Hi Everyone,

I am getting the weirdest thing happen to me when I try and run a code.

When I run it via "step into" and hold down F8, everything works perfectly. When I just hit run and it does it (way faster), it skips deleting out columns in my autofilter function. I've tried everything, removing for loops, removing excess code, but it just doesn't seem to work. The portion of my code that seems to be affected is below:

With Sheets(J)
    .Range("$A$2:$BA$5968").AutoFilter Field:=3, Criteria1:="<>Current", Criteria2:="<>Vacant"
    .AutoFilter.Range.Delete
    .AutoFilterMode = False
End With

 

[MUKESHY12390]

perhaps this..

   With Sheets(J)
    .Range("$A$2:$BA$5968").AutoFilter Field:=3, Criteria1:="<>Current", Criteria2:="<>Vacant"
    .Range("$A$3:$BA$5968").SpecialCells(xlCellTypeVisible).EntireRow.Delete   '' would delete entire row
    .AutoFilterMode = False
End With