Программно открыть книгу и форму в ней

Shell "cmd /c c:\temp\Другая_книга.xls"
ThisWorkbook.Close 0

Workbooks("k &.xls").Close

Workbooks("k" & ".xls").Close

Destination:=Workbooks("Книга1.xls").Sheets("Лист1").Columns("A:II")

Sub pokaz()
UserForm1.Show
End Sub

Sub open_form()
Application.Run ("Штрих.xls!Module1.Pokaz")
End Sub

Application.Run (" книга текущая дата.xls!Module1.Pokaz")

Private Sub CommandButton2_Click()
 
Dim oFileSystemObject As Object
Set oFileSystemObject = CreateObject("Scripting.FileSystemObject")
     If oFileSystemObject.FileExists("C:\temp\" & "Êâèòàíöèè_" & Day(Now) & "_" & Month(Now) & "_" & Year(Now) & "\" & Day(Now) & "_" & Month(Now) & "_" & Year(Now) & ".xls") = False Then
MsgBox "Â ýòîò äåíü íåáûëî ñîçäàííûõ ôàéëîâ"
    Else
Workbooks.Open ("C:\temp\" & "Êâèòàíöèè_" & Day(Now) & "_" & Month(Now) & "_" & Year(Now) & "\" & Day(Now) & "_" & Month(Now) & "_" & Year(Now) & ".xls")
Application.Run (Day(Now) & "_" & Month(Now) & "_" & Year(Now) & ".xls!Module1.Pokaz")
k = "Øòðèõ (version 2.1.10)"
Workbooks("k" & ".xls").Close
 
 
End If
end sub