Ik heb de volgende code die in alle bladen zoekt naar de naam van een land en de corresponderende bladen geeft als lijst.
Wat ik echter tracht te bereiken is dat er gezocht word vanaf het blad volgend op het blad "Menukeuze" tot en met het laatste blad.
Code:
Sub ZoekLand()
Dim ws As Worksheet
Dim found As Range
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then
Set found = ws.Range("A10:Q50").Find(what:=Range("C12").Value, LookIn:=xlValues, lookat:=xlPart)
If Not found Is Nothing Then ActiveSheet.Range("BD" & Rows.Count).End(xlUp).Offset(1).Value = ws.Name
End If
Next ws
Application.ScreenUpdating = True
End Sub
Wat ik echter tracht te bereiken is dat er gezocht word vanaf het blad volgend op het blad "Menukeuze" tot en met het laatste blad.