Private Sub Worksheet_SelectionChange(ByVal c As Range)
Dim sh As Worksheet
If c.Row = 1 Or c.Count > 1 Or Cells(c.Row, 1) = "" Then Exit Sub
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "General" Then
If InStr(LCase(Cells(c.Row, 1)), LCase(sh.Name)) > 0 Then sh.Select: Exit Sub
End If
Next sh
End Sub