Bom dia,
Tenho essa sub totalmente funcional:
Porém, eu queria poder acionar usando duas células em ".Item.To =", por exemplo, usar F28 e F29.

Sub enviar_corpo_email()

' Seleciona o intervalo de células a serem enviadas por email.

ActiveSheet.Range("A1:F45").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = "Texto exemplo"
.Item.To = _
destino & Range("F28") 'envia para email nesta celula, caso queira em outra planilha ex "PlanX!A1"
.Item.Subject = "TITULO DO EMAIL"
.Item.Send
End With
End Sub