If your worksheet has a space in it, then you might want:

ActiveCell.Formula = "=HYPERLINK(""#" & "'" & Sheets(1).Name & "'" & _
"!D1"",""" & Sheets(1).Name & """)"

Those apostrophes won't hurt if they're not needed, but may be required.

Roman wrote:

That is it! Thank you much.

Now I see, that when using VBA to create formula I have to put comma
instead ;
which I use when inserting worksheet function manually

Thanks again.

--

Dave Peterson