Private Declare Function ActivateKeyboardLayout _
                          Lib "User32" (ByVal HKL As Long, ByVal flags As Long) As Long

Private Declare Function ActivateKeyboardLayout _
                          Lib "User32" (ByVal HKL As Long, ByVal flags As Long) As Long
Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column    ' в зависимости от номера столбца активной ячеки
        Case 6, 9, 10    ' Примечание, Подлинность (оригинал/копия)
            ВключитьРусскуюРаскладку
        Case 3, 7, 8:    ' Числовой идентификатор (штрих-код), ШК размещенного в ЭХД документа  (заполняется в случае замены)
            ВключитьАнглийскуюРаскладку
        Case Else:    ' ничего не делаем (оставляем текущую раскладку)
    End Select
End Sub
 
Sub ВключитьРусскуюРаскладку()
    ' Переключить на русский язык
    x = ActivateKeyboardLayout&(kb_lay_ru, 0)
End Sub
 
Sub ВключитьАнглийскуюРаскладку()
    ' Переключить на английский язык
    x = ActivateKeyboardLayout&(kb_lay_en, 0)
End Sub

'если найден только один эл-т, то переходим к нему
      If j = 1 Then Cells(ListBox1.List(0, 0), stolbV).Select
End Sub

    Private Sub ListBox1_Click() 'если не выбран элемент списка - выход


    If ListBox1.ListIndex = -1 Then Exit Sub 'переход к ячейке листа, содержащей выбранный элемент списка


    Cells(ListBox1.Value, stolbV).Select 'выделяет эту строку как ошибку

End Sub
      

1 Set rg = .Columns(stolbV).Find(TextBox1, , xlValues, xlWhole, xlNext) ' здесь ошибка

2 If rg Is Nothing Then Exit Sub

Set rg = .Columns(stolbV).Find(TextBox1, , xlValues, xlWhole, xlNext ' здесь ошибка
 If rg Is Nothing Then Exit Sub