Object Required error. Это он объект Application не узнаёт!!

[Sharkky]

Sub ImportOLDI()
   Dim wkName
   If Application.Dialogs(xlDialogOpen).Show Then
       Set wkName = Application.Caption
   End If
   Лист1.CommandButton1.Caption = wkName
End Sub

Процедура эта написана в отдельном модуле.

Не понимаю, что делаю неправильно

[Witaleey]

А тебе что нужно, просто название приложения? тогда попробуй вообще .caption убери

Set wkName = Application