Private Sub Worksheet_Change(ByVal Target As Range)   
   Dim i As Integer   
   If Target.Column <> 1 Then Exit Sub   
   For i = 1 To Len(Target)   
       If Asc(Mid(Target, i, 1)) > 191 And Asc(Mid(Target, i, 1)) < 256 Then   
           MsgBox "Неправильный ввод", vbExclamation   
           Target = ""   
       Exit Sub   
       End If   
   Next   
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
   Dim i As Integer
   If Target.Column <> 10 Then Exit Sub
   For i = 1 To Len(Target)
   Select Case Asc(Mid(Target, i, 1))
       Case 32, 45, 39, 96, 1040 To 1105
       Case Else: Target = "": MsgBox "Только на кириллице!", vbCritical, "Ограничение ввода букв"
   End Select
   Next
End Sub