Hallo oldy,

Met wat je al in kolom A hebt staan los je dit op met welgeteld één vba-instructie :
Cells(Application.WorksheetFunction.Match(Cells(7, 5), Columns(1), 0), 2).Select
Mvg,
pitufo

En nog een oplossing zonder de On Error opdracht...
Sub ZoekEersteLetter()

    Set Zoekdier = Sheets("Dieren").Columns(2).Find(Range("Dierzoeken").Value & "*", Range("B8"), , xlWhole)
    If Zoekdier Is Nothing Then GoTo Einde
    ActiveWindow.ScrollRow = ActiveCell.Row
    Exit Sub
   
Einde:
    MsgBox "Een dier met de gevraagde letter '" & Range("Dierzoeken").Value & "' kan niet worden gevonden!", vbOKOnly, "Helaas..."
End Sub


Waar gaat die
On Error GoTo 0dan eigenlijk naar toe?

@Dizzl, de opdacht On Error GoTo 0 gaat nergens naartoe. Maar je geeft hiermee aan dat Excel zélf de foutafhandeling weer moet oppakken. Het is dus een "einde" instructie voor On Error.

@Oldy, Nee! Je mag absoluut de On Error's niet verwijderen in de eerste gegeven procedure. De Find methode geeft namelijk een Error als die niets kan vinden als je 'm gebruikt zoals ik dat dus deed in de eerste oplossing. Zonder die eind-instructie neemt Excel niet zelf de afhandeling over. Na het afsluiten van een procedure gaat dat "als het goed is vanzelf", maar het is een goede gewoonte om er als programmeur zelf voor te zorgen dat alles weer goed staat.

In de 2e oplossing wordt er een Set gebruikt. Hiermee krijgt de variabele een waarde of is leeg (Is Nothing) en kan daar op worden afgevangen. De tweede procedure is daarmee een nettere oplossing dan de eerste.

Ofwel spring die gewoon naar cel A1

Ah, ik snap je... Dit helpt...
Sub ZoekEersteLetter()

    Set Zoekdier = Sheets("Dieren").Columns(2).Find(Range("Dierzoeken").Value & "*", Range("B8"), , xlWhole)
    If Zoekdier Is Nothing Then
          MsgBox "Een dier met de gevraagde letter '" & Range("Dierzoeken").Value & "' kan niet worden gevonden!", vbOKOnly, "Helaas..."
          Exit Sub
    Else
          ActiveWindow.ScrollRow = Zoekdier.Row
    End If
 
End Sub