VBA Error

[Lelewiwi]

Hello helpful peeps! I have a massive macro that is run every month on files that are received from an outside source. It worked last month, but this month I received an error. The file received has not changed, nor has the code. I don't get it. Any help is appreciated! The line where the code is red.

    'Clean and set up EB Other Locals Adjustment workbook
        Dim lr8 As Long
        Dim lr9 As Long
        Sourcewb2.Activate
        Columns("D").Delete

    'Filter, copy, paste
        lr8 = Cells(Rows.count, "A").End(xlUp).Row
        Columns("K:K").AutoFilter
        ActiveSheet.Range("$A$1:$P$" & lr8).AutoFilter Field:=11, Criteria1:="<0"
        Range("$A$1:$P$" & Cells(Rows.count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
        ThisWorkbook.Activate
        Sheets("Eastbay Adjustments").Select
        lr9 = Cells(Rows.count, "A").End(xlUp).Row
        Cells(Rows.count, 1).End(xlUp).Offset(2, 0).PasteSpecial xlPasteValues
        Application.CutCopyMode = False

 

[Lelewiwi]

Ok, so that is changed. What about the Dbox.SelectedItems.Count? Those are the only one that are in the actual module that is the issue.

 

[Joe4]

No, that is the built-in "Count" property, not a user-created variable.

Note on the other one, the variable declaration is a dead give-away.
You only use the word "Dim" to declare user created variables.

 

[Lelewiwi]

Ok. I'm still getting the error and really need to get this fixed ASAP. Any other ideas?

 

[Joe4]

I am afraid that we probably cannot do anything else without having access to your files.
If you can upload a copy of them to a file sharing site (being sure to remove any sensitive information first), and post the link here, we may be able to take a look at it for ourselves and find where the issue is.

 

[Lelewiwi]

Unfortunately, I cannot do that due to HIPPA restrictions. All I can due to post the entire code here.

 

[Joe4]

Unfortunately, I cannot do that due to HIPPA restrictions. All I can due to post the entire code here.

That is why I said remove all sensitive data first.
I am familiar HIPPA requirements. It is not too hard to "dummy up" the data by removing/replacing all the HIPPA data with made up stuff.

 

[Alex Blakenburg]

Can you try replacing this line:

      Columns("K:K").AutoFilter

With these lines

        If ActiveSheet.FilterMode = True Then
            ActiveSheet.ShowAllData
        End If

 

[Lelewiwi]

@Alex Blakenburg you are a life saver! That worked! Thank you thank you thank you thank you!

 

[Alex Blakenburg]

You're welcome. Glad we could help.

 

[Joe4]

I believe that seems to imply that your data was already filtered, which I asked about way up in post 8!