Boa noite!
Preciso de um help!
Possuo este código para converter em pdf:
Ele gera um pdf da minha plan Escala , dentro da Pasta Escala , na unidade
Sub GERAR_PDF()
arq = ActiveSheet.Range("E5").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:ESCALA" & arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Preciso enviar essa Escala em PDF para alguns email, que estao cadastrados na Plan Integrantes, na coluna i, range ("i2:i10")
Gostaria que assim que clicar no botao pdf, que gera o pdf da plan ESCALA, anexar o pdf criado e enviasse o anexo aos emais que estao cadastrados no range acima citado

Agradeço se puderem me ajudar

Roger