Dim myRange As Range
On Error Resume Next
Set myRange = Application.InputBox(prompt:="Select the cells you want", Type:=8)
On Error GoTo 0
If myRange Is Nothing Then
MsgBox "User cancelled"
Else
MsgBox "User selected " & myRange.Address
End If
Это покажет диалог ввода. Не вводите в него ничего, вместо этого выделите ячейки мышью, и их адрес появится в диалоговом окне. Когда вы нажимаете OK, они должны быть присвоены переменной myRange.
Примечания:
Тип: = 8 в конце строки InputBox сообщает VBA, что это должен быть диапазон ячеек
Бит On Error предотвращает ошибку, если пользователь отменяет