Случайный выбор заголовка label

[Fox River]

Необходимо случайно выбирать из 100 строк которые идут одна за другой заголовок label в userform. Есть форма на которой размещен Label. При каждом выведении на экран данной формы, заголовок (caption) label должен случайным образом меняться. Подскажите пожалуйста как это сделать.

Пример

Private Sub Label2_Click()
Label2.Caption = Application.ThisWorkbook.Sheets("Заголовки").Range("A1").Value

End Sub

Вместо A1 должна браться случайно следующая ячейка.

[VictorM]

Private Sub Label2_Click()
    iRnd = Int((100 - 1 + 1) * Rnd + 1)    '100 строк
    Label2.Caption = Application.ThisWorkbook.Sheets("Заголовки").Range("A" & iRnd).Value
End Sub

[Fox River]

Спасибо VictorM! Огромное спасибо.

[Fox River]

Скажите, будет браться случайная строка от 1 до 100?
И ради обучения объясните зачем отнимать от 100 единицу и тут же прибавлять ее?

[VictorM]

Скажите, будет браться случайная строка от 1 до 100?

Совершенно верно, только не строка а ячейка.

И ради обучения объясните зачем отнимать от 100 единицу и тут же прибавлять ее?

Для того, чтобы получить случайное целое число в заданном диапазоне, достаточно использовать нижеприведённую инструкцию, где ВерхняяГраница это максимальное число нужного диапазона, а НижняяГраница это минимальное число этого же диапазона.
iRnd = Int((ВерхняяГраница - НижняяГраница + 1) * Rnd + НижняяГраница)
Источник : Справка Microsoft Office

[Fox River]

Спасибо еще раз! Скажите а как изменить код чтобы заголовок менялся не при нажатии мыши а при открытии самой формы. Какой метод надо прописать не click а например onload или другой?

[VictorM]

Можно тогда так

Private Sub UserForm_Activate()
    iRnd = Int((100 - 1 + 1) * Rnd + 1)
    Label2.Caption = Application.ThisWorkbook.Sheets("Заголовки").Range("A" & iRnd).Value
End Sub

Только вот заметил.
Если Вам нужно менять именно заголовк формы то напишите так

Private Sub UserForm_Activate()
    iRnd = Int((100 - 1 + 1) * Rnd + 1)
    Caption = Application.ThisWorkbook.Sheets("Заголовки").Range("A" & iRnd).Value
End Sub

[Fox River]

Спасибо, работает!

[VictorM]

работает!

А куда оно денется))