Не обновляется текст письма - VBA

Формулировка задачи:

Здравствуйте, Проблема такова: 1. Макросом формируется письмо.

 Sub Письмо()
Dim OutlookApp As Object, SM As Object
 Set OutlookApp = CreateObject("Outlook.Application")
 Set SM = OutlookApp.CreateItem(olMailItem)
 SM.To = "Кому" 'Поле "Кому"
 SM.CC = "КОПИЯ" 'Поле "Копия"
 SM.Subject = "Тема письма"
 On Error Resume Next
 SM.Body = Лист7.Range("G6").Value
 SM.Display
 Set SM = Nothing
 Set OutlookApp = Nothing
End Sub

2. Макрос письма запускается при открытии файла после смены текущей даты.

  
Private Sub Workbook_Open()
  With Me.Sheets("Лист1").Range("B2")
    If .Value <> Date Then
      Call Письмо
      .Value = Date
      End If
    End With
End Sub

Текст письма берется из ячейки, которая формируется в зависимости от текущей даты формулами ЕСЛИ и СЦЕПИТЬ. Проблема в том, что текст письма формируется не для текущей даты, а почему-то, берет запись предыдущего дня. Причем если запустить макрос формирования письма через «RUN», он формирует письмо для текущей даты, как и положено. Почему так происходит, подскажите, пожалуйста.

Решение задачи: «Не обновляется текст письма»

textual
                            Листинг программы 
                        
                                  .Value = Date
      Call Письмо