Gegevens zoeken uit ander excel sheet

[joskjos]

Allen,

Ik ben een tijdje aan het zoeken geweest naar de juiste code welke in een keer lege kolommen overslaat en meerdere tabbladen kan doorzoeken.
Nu heb ik deze code gevonden:

Sub Zoeken vba()
    Dim i As Integer
    Dim rng As Range
    For i = 1 To Worksheets.Count
        Set rng = Worksheets(i).Cells.Find("naam:")
        If Not rng Is Nothing Then
        Worksheets(i).Activate
        End If
    Next i
End Sub

Ik ben bezig geweest om deze code in de code van VenA te verwerken maar loopt vast in:

Private Sub CommandButton1_Click()
    ChDrive "C:\"
    FileToOpen = Application.GetOpenFilename _
    (Title:="Please select Design Summary", _
    FileFilter:="Excel Files *.xlsm (*.xlsm),")
If FileToOpen = False Then
    MsgBox "No file specified!", vbExclamation, "LOOK OUT !"
    Exit Sub
  Else
    Workbooks.Open Filename:=FileToOpen, UpdateLinks:=0
    With ActiveWorkbook

Dim i As Integer
Dim rng As Range
For i = 1 To Worksheets.Count
Set rng = Worksheets(i).Cells.Find("naam")

   
   [B]ar = rng.UsedRange[/B]       '<- hier gaat het mis'

             .Close 0
             Next i
    End With
End If

        If Left(rng.Offset(0, 4), 2) <> "naam" Then c00 = c00 & "|" & Replace(rng, "naam ", "")
 

ComboBox1.List = Split(Mid(c00, 2), "|")
End Sub

Voor uitlezen met combobox

Private Sub ComboBox1_Change()
For j = 1 To UBound(ar)
    c01 = c01 & "|" & ar(j, ComboBox1.ListIndex + 1)
Next j
Sheets(1).[A2].Resize(UBound(Split(Mid(c01, 2), "|")) + 1, 1) = Application.Transpose(Split(Mid(c01, 2), "|"))
End Sub

Wie kan mij verder helpen?

Mvgr,
Jos