This works for me

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


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Roman" wrote in message
oups.com...
Please, anybody, don´t you know why this does not work for me?

ActiveCell.formula = "=hyperlink(" & """" & "#'" & Sheets(1).Name &
"'!D" & "1" & """" & ";" & """" & Sheets(1).Name & """" & ")"

Thanks in advance.