VBA For each Loop - select dropdown and call another macro

[Melimob]

Hi there,

I have the below code which *should* select a dropdown for all in list and call another macro (which creates a PDF and email) but it keeps staying on the same selection producing 20 emails for the one customer?

Any ideas on what I am doing wrong?

Sub All_Intro_emailPDFLoop()
    Dim c As Range
    Dim Rng As Range
    Set Rng = Range("nDataVal_Introducers_Act_COMBO")
    For Each c In Rng
        Range("G6").Select
        Call emailsavePDF_Intro
    Next
End Sub

 

[Melimob]

THANK YOU THANK YOU THANK YOU!

That worked however as some of the clients don't have any data to report, 'the item cannot be found in the OLAP cube' error comes up. I feel I need to include an 'On Error Resume Next' but unsure where to place this line?
Also, I only want the report to run on the clients which are active. There is a cell which returns 'Active'/'Inactive' when the dropdown changes via a lookup however I tried to add this but got an error?:

Private Sub CommandButton1_Click()

   Dim rep As Long
 
    With Sheet21.ComboBox1
      For rep = 0 To .ListCount - 1
           .Value = .List(rep)
        If .Range("S1").Value = "Active" Then
          Call emailsavePDF_Intro
       End If
     
    On Error Resume Next
     
      Next rep
       
       
   End With
End Sub

ok thanks so much for your help!

 

[Fluff]

You're welcome.