Работа с менюшками

 Set xlsWb = xlsApp.Workbooks.Open("C:\Documents and Settings\User\отчет.xls")

fileToOpen = Application.GetOpenFilename("Only these Files (*.txt;*.doc;*.xls), *.txt; *.doc; *.xls")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If

Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
fileToOpen = xlsApp.GetOpenFilename("Все файлы (*.*), *.*")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If

CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then

Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
xlsApp.Dialogs(1).Show

Set xlsWb = xlsApp.Workbooks.Open("ВОТ СЮДА")

Set xlsWb = xlsApp.Workbooks.Open(fileToOpen)

Private Sub Command1_Click()
Dim xlsApp As Object
Dim xlsWb  As Object
Dim xlsSh   As Object
 
 
        
       Set xlsWb = xlsApp.Workbooks.Open(fileToOpen)
       Set xlsSh = xlsWb.Sheets("ëèñò1")
      Call BLANK
      
Dim R, S
Dim Razd, VIP, Rad, Roned, D
 
 
 
For R = 10 To xlsSh.Cells(10, 1).End(-4121).Row
If IsNumeric(xlsSh.Cells(R, 1).Value) Then
                xlsApp.Windows("îò÷åò.xls").Activate
                Rad = xlsSh.Cells(R, 10)
                 Roned = xlsSh.Cells(R, 1)
..........................................................
..........................................................
Function fileToOpen()
Dim xlsApp As Object
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
fileToOpen = xlsApp.GetOpenFilename("Âñå ôàéëû (*.*), *.*")
End Function

Option Explicit
Dim xlsApp As Object
 
Private Sub Form_Load()
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
End Sub

For S = 1 To 40
    If Rad = "выполнено" And Dir("C:\Users\Lenovo\Desktop\п." & Val(S) & ".*") <> "" And Roned = Val(S) Then

For S = 1 To 40
    If Rad = "выполнено" And Dir(CommonDialog1.ShowOpen"\п." & Val(S) & ".*") <> "" And Roned = Val(S) Then

Dir(CommonDialog1.ShowOpen"\п." & Val(S) & ".*") <> ""