Qual o codigo que esta usando ?

Marcelo,

Estou usando este codigo, mas como eu disse eu tenho que selecionar um cliente e clicar no botão para gerar o PDF e enviar o e-mail.

Gostaria de um gatilho para ler cliente a cliente e ir disparando

Dim Caminho As String

Sub SalvaPDF()

ChDir _
"J:Marcelo Vitor2018Indicadores OperacionaisAcompanhamento Operacional"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"J:Marcelo Vitor2018Indicadores OperacionaisAcompanhamento OperacionalIndicadores Operacionais.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, From:=1, To:=2, OpenAfterPublish:=False

Call Enviar_Email

End Sub

Sub Enviar_Email()

Application.ScreenUpdating = False

Dim OL As Object
Dim EmailItem As Object
Dim Wb As Workbook

Caminho = "J:Marcelo Vitor2018Indicadores OperacionaisAcompanhamento OperacionalIndicadores Operacionais.pdf"

Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)

With EmailItem
.Subject = "Indicadores Operacionais"
.To = Range("CU109") 'Destinatário do email
.CC = Range("CU110") & ";" & Range("CU111") & ";" & Range("CU112") 'Destinatários em cópia
.Attachments.Add Caminho
'.Send
.Display

MsgBox "Indicadores Enviado com Sucesso!", vbInformation, "ENVIADO"
End With

Application.ScreenUpdating = True

Set Wb = Nothing
Set OL = Nothing
Set EmailItem = Nothing

Application.ScreenUpdating = True

Call ApagarArquivoTemporário

End Sub

Sub ApagarArquivoTemporário()
On Error Resume Next

Let nFile = Caminho

If Len(Dir$(nFile)) > 0 Then
Kill nFile
End If
End Sub