VBA/Excel kijken of bestand bestaat

[fopspeen]

Hoi,

Ik heb een lijst met padnamen die naar een bestand leiden.
Nu wil ik met een macro mijn lijst (Cell A1:A49563) doorlopen en als het bestaat in de Cell erlangs komt te staat "Bestaat".
Als dit niet bestaat moet er komen te staan "Bestaat Niet"

Nu heb i kverschillende voorbeeldjes gevonden want internet barst er vol van! Maar ik ben zelf geen professionele programmeur, en ik kan hier niets meer van maken als het al is.
Nu is mijn vraag of er iemand is die mij kan vertellen hoe ik als het bestand wel/niet bestaat dit in de kolom erlangs krijg.
Want mijn er word wel geschreven in mijn B kolom, maar iedere keer in cell B1 en hij telt niet door zeg maar?
Dit is de code waar ik het mee zou willen doen. (gevonden op internet hoor)

Visual Basic:

Sub IfFileInFolder()
    Dim rRange As Range
    Dim rRange2 As Range
    Dim rCell As Range
    Dim strPath As String
     
    strPath = "N:\"
    Set rRange = Range("A1", Range("A49563").End(xlUp))
    Set rRange = Range("B1", Range("B49563").End(xlUp))
   
    For Each rCell In rRange
            If Dir(strPath & rCell) = vbNullString Then
                rRange2 = "Bestaat niet!"
            Else
                rRange2 = "Bestaat"
            End If
    Next rCell
     
End Sub

[Verwijderd]

het bereikobject rRange wordt cel per cel afgelopen mbv de for each lus, voor rRange2 gebeurt dat niet, vandaar dat alle resultaten in B1 terecht komen. (bovendien is regel 9 niet juist)
rCell bevat het adres van de actuele cel die bekeken wordt, dmv. offset kan je relatief verwijzen naar een andere cel

Visual Basic:

'...
  rCell.offset(,1)="Bestaat niet!"
else
  rCell.offset(,1)="Bestaat"
end if

[fopspeen]

Bedankt! Dat was het trucje dat ik nodig had!
Ik zal het onthouden voor een volgende keer