VBA to delete hidden (unfiltered) rows

Hello,

I am having some problems with my code.

The code I have written (below);

1. Allows the user to choose a CSV file from the file browser and import the data to a new workbook
2. Filters the data using an advanced filter
3. Deletes hidden (filtered out) data

Please Login or Register  to view this content.

Everything runs fine except from step 3 (deleting the hidden rows). When I run the code below on it's own it works as expected, but for some reason it's not completing when added to the full code.

Please Login or Register  to view this content.

Can anyone help?

Hm really? When I run the code this is what I get;

Screenshot 2019-02-26 at 10.56.10.png

Which shows me that the delete hidden rows part isn't working.

When I isolate that part of the code and run it it works and I'm left with data in rows 1 to 56 only.

That is strange. I'm on a PC now and getting the same results as on my MAC. Using the code and CSV file from my first post...

Can anyone else help with this? I don't understand why this part of the code works for me when used in a separate sub but not when added to the rest of the code;

Please Login or Register  to view this content.

It's possibly just a syntax error?

Hey! I am opening a blank workbook and copying the code from my first post into the This Sheet module and running it - selecting the CSV file I attached to my first post. I am getting the results that I shared above. Are you doing something different?

Thanks!

That's exactly what I'm doing too (minus the indent part). I noticed your CSV file starts with 'copy' - are you using the exact file I attached from the first post?