Как добавить сочетание клавиш в модуль VBA, уже закодированный свободной рукой?

Question

Вот первые несколько строк кода:

Sub OpenFile()

     Dim myFile As String
     Dim Wb As Workbook

     myFile = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
     'Exit if no file selected

     If myFile = "False" Then
          MsgBox "No file selected!"
          Exit Sub
     End If
     'Open the file

End Sub

Я попытался имитировать командные строки, найденные в других макросах, которые я записал, но, похоже, ничего не работает.Пожалуйста, порекомендуйте.И куда именно я помещаю строку кода, указывающую сочетание клавиш?В этом случае я хочу, чтобы сочетание клавиш было CTRL + SHIFT + R

Спасибо!

Answer 1

На листе нажмите Alt + F8
Затем нажмите Параметры ...
Затем назначьте ярлык.