Hyperlink to run VBA code using auto fill for =hyperlink

I am having a problem that has been KILLING me. I know how to create a hyperlink by right clicking on the cell>Hyperlink>"Place in This Documet">Type the cell reference>OK

This is easy, but I have 600 of these to do. Auto fill for =hyperlink function is needed.

I am wanting to reference the cell to itself and when the hyperlink in clicked excute using the following code:

Please Login or Register  to view this content.

I can link to the code above using the right click method and the code runs fine, but I can't get it to work using =hyperlink in the cell method.

I tried using the following method and it does not link the code:

=HYPERLINK("#"&CELL("address",Sheet1!F14),"Search Swift")

Can this be done......what am I doing wrong?

Any help would be appriciative.

Here is a sample workbook, the first code is using the right click method and the second is using the =hyperlink (which does not work)