When I do this:

activecell.value = "HYPERLINK(""#" & Sheets(1).Name & _
"!D1"";""" & Sheets(1).Name & """)"

and then manually replace "hyper" by "=hyper" it works...

When I do the same progrmatically I get 'The formula you typed contain
error'


Very confused.