Hi

Thanks for your reply, I'm glad that you made it work.

Regards,
Per


On 27 Nov., 16:13, struggler
wrote:
Hi again.
I solved the problem, maby not the best way bit still, it works:
*If f Is Nothing Then
* * * * * * * * * * .Cells(4, 1).End(xlDown).Activate
* * * * * * * * * * ActiveCell.End(xlDown).Activate
* * * * * * * * * * ActiveCell.End(xlUp).Activate
* * * * * * * * * * ActiveCell.Offset(1, 0) = Hold
* * * * * * * * End If

Thanks for your helpPerJessen!!!



"struggler" wrote:
there seems to be a problem, when it finds the "Hold" value then its ok, but
if it does not find the value there is an error:
*If f Is Nothing Then
* * * * * * * * * * .Cells(4, 1).End(xlDown).Offset(1, 0) = Hold
* * * * * * * * End If
Im getting a run-time error. Application-defined or object.defined error.