Bom dia, alguém sabe me responder o porque de ao adicionar essa formula de formatação condicional (=MOD(LIN();2)=0), minha rotina a seguir trava e não é executada corretamente?

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 rapido"     
.Item.To = "exemplo@exemplo.com"     
.Item.Subject = "Titulo do email"     
.Item.Send   End With
End Sub

Att.