Случайная дата в заданном временном диапазоне - VBA

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

Доброе утро. Подскажите знающие люди - решение. В ячейки C3 и E3 - вписаны текстом - определенные даты. Как макросом - вписать в ячейку D3 - случайную дату, в заданном ячейками C3 и E3 временном диапазоне ?

Решение задачи: «Случайная дата в заданном временном диапазоне»

textual
                            Листинг программы 
                        

                            Sub GetRandomDate()
    On Error Resume Next
    Randomize
    Sheets(3).Cells(3, 4) = Format$(DateAdd("d", Int(Rnd * DateDiff("d", CDate(Sheets(3).Cells(3, 3)), CDate(Sheets(3).Cells(3, 5)))), CDate(Sheets(3).Cells(3, 3))), "DD MMMM YYYY")
End Sub
                        