Проблема с методом пересечения

Question

У меня есть фрагмент кода VBA для макросов Excel, который запрещает пользователям вводить текст на русском языке, и он работает, однако выдает ошибку при копировании / вставке нескольких ячеек. Я думаю, что должен ограничить то, к чему относится Intersect, но не уверен, как это правильно сделать.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target.Cells, [A1:H1000]) Is Nothing Then Exit Sub
   If LCase(Target.Cells) Like "*[а-я]*" Then
        With Application
            .EnableEvents = False: .Undo: .EnableEvents = True
             MsgBox "Please use latin letters only"
       End With
   End If
End Sub