Макрос Excel не может установить заголовок метки

Question

У меня есть следующий макрос для нажатия кнопки. Когда я запускаю его, я сталкиваюсь с загадкой в ​​строке заголовка надписи с ошибкой «требуется объект». Имена объектов правильные.

Sub Button1_Click()
    Dim objFileDialog As Object
    Dim objSelectedFile As Variant
    Set objFileDialog = Application.FileDialog(3)
    With objFileDialog
        .ButtonName = "Select"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel File", "*.*", 1
        .Title = "Select Input file"
        .Show
        For Each objSelectedFile In .SelectedItems
            Label2.Caption = objSelectedFile
        Next
    End With
End Sub