Форум по VBA и MS Office

Как можно открыть файл .xlsm?

Sub Макрос()

    Dim bk As Workbook
   
    ' Открываем файл и присваиваем ему имя 'bk'.
        ' Далее в коде будем обращаться к файлу, используя имя 'bk'.
    Set bk = Workbooks.Open(Filename:="C:\Users\User\Desktop\Книга1.xlsm")
   
    ' Закрытие файла без сохранения.
    bk.Close SaveChanges:=False
   
End Sub

спасибо