поиск

[Screame]

А можна зделать так чтобы не писать, полное имя а только первых три буквы например: Свет... или Тат...

[SAS888]

Можно. Например, так:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next:
    If Target.Address = [G2].Address Then Rows([B4:C8].Find(Target).Row).Select
    If Target.Address = [H2].Address Then Rows([B4:C8].Find(Target, , , xlPart).Row).Select
End Sub