Не могу исправить ошибку в форме

[Ириныч]

Здравствуйте! Помогите, пожалуйста, начала изучать VBA. Не могу справиться даже с самой простой формой: вставить текущую дату.
Private Sub OKButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
Dim Quote As String
Quote = "Не повторяется такое никогда:"
lblNow.Caption = Quote & Format(Now, "dddddd,hh ч. mm мин.")
End Sub

При выполнении пишет ошибку 424. Перерыла весь интернет, написано не подключены какие-то библиотеки что ли.
Заранее спасибо за помощь!

[pashulka]

В Вашем примере необходимо ещё создать элемент управления Label(Надпись) с именем lblNow + кнопку с именем OKButton1

P.S. При желании можно обойтись без переменной, т.е.

lblNow = "Не повторяется такое никогда: " & Format(Now, "dddddd,hh ч. mm мин.")

[Казанский]

Скорее всего, лабел называется не "lblNow". Выложите файл.

[alex77755]

100% рабочий код
lblNow может быть как лабелом так и формой