VBА: Рандомное число каждый раз при открытии книги excel?

Question

[Fireman41]

Добрый день!

Создана книга, макрос в которой каждый раз при открытии генерирует рандомное число, откладывает исполнение тела макроса на рандомное число секунд. Макрос помещен в раздел "ЭтаКнига"

Private Sub Workbook_Open()
random_number = Int(50 * Rnd) + 1
MsgBox random_number

Application.Wait Time:=Now + TimeValue("00:00:" & random_number)
MsgBox random_number

End Sub

Проблема в том, что каждый раз при открытии книги генерируется одно и тоже число.
Как можно это исправить?
Необходимо, чтобы макрос открывался именно при открытии данной книги.

Спасибо за помощь!