Macro: Copy mail addresses from a filtered list to Outlook

Hi.

Please be patient with the grammar

I'm using Excel 2013/2016

I have a spreadsheet with a list of contacts I would like to send email to.
On Sheet "Unike brukere" in column D (D2: D1500) is the email address of the people I want to send email to.

I have a simple macro that copies all the addresses and puts them in Outlook, the problem is that it does not work when the list is filtered. An email is created and all the e-mail addresses are copied. So the macro works perfectly when I want to send to everyone, but not when I only want to send to a small selection of contacts
Anyone who has suggestions for what's wrong?



Regards
Trond F.

===============================

Please Login or Register  to view this content.

Forum rules require Code Tags around VBA code. Please click Edit Post, select the relevant text and click # on the Editing Toolbar. Thanks - Lee

Please Login or Register  to view this content.

RE: your problem: Are you saying that the entire list is added, regardless of filtering?

Originally Posted by leelnich

Forum rules require Code Tags around VBA code. Please click Edit Post, select the relevant text and click # on the Editing Toolbar. Thanks - Lee

Please Login or Register  to view this content.

RE: your problem: Are you saying that the entire list is added, regardless of filtering?

Thank you for information about # - hope it's more readable now

yes - the entire list is added even though eg 15 names are listed.


Added 18.03-2018
I found the solution - I was missing Sheets("").
This line works : If Sheets("Unike brukere").Rows(cl.Row).EntireRow.Hidden = False Then