If NieuwArtikelNr is the sheet name then you could just use:

Range("D2").End(xlDown).Offset(1, 0).Formula = _
"=MAX(NieuwArtikelNr!D5:D300,1)"

but Don already suggested that in the previous thread. If that does not
work you need to show us how NieuwArtikelNr is being set in your macro.

Regards
Rowan

Henrootje wrote:
The puzzle: I have two worksheets within one Excelfile.

' NieuwArtikelNr' and ' Hoofdblad' .

Now I want to place in 'Hoofdblad', Column D, first free cell, the
following code;

=MAX(" & NieuwArtikelNr & "!D5:D300;1)

so that in that field it shows the last date in NieuwArtikelNr, Column
D.

Thanks to Don Guillet I have come as far as:

Range("D2").End(xlDown).Offset(1, 0).Formula = "=MAX(" & NieuwArtikelNr
& "!D5:D300;1)"

BUT the = before MAX cannot be placed. If I remove the = it works like
a charm but then it's just plain text, not a formula :s

Any one has any suggestions?

TIA