I am trying find a certain text (x) in the first row of a column exactly in file (DestDat) and when found replace one of the cells below it, with (x):
Dim x As Variant
Dim R As clsFind
Set R = New clsFind
Do While Not IsEmpty(ActiveCell.Value)
x =...