Hi Everybody,
I wrote a code below (please don't laugh because i'm still new at this) that when executed is supposed to automatically insert the currently active workbook as a hyperlink to an active cell in a specific workbook (which is open as well).

I would greatly appreciate if anyone can modify my code so that this can work.
Thanks in advance.

Sub addhyperlinks()

'I would like to take the active workbook and copy its filename and file path
activeworkbook.Address.Copy

'Next, I want to select the open workbook called "Chart1" and insert the copied filename and file path as a hyperlink into the active cell of workbook "Chart1"
    .Workbooks("Chart1").Select
        With Selection
            .ActiveSheet.ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
            "" & .Paste
            ,TextToDisplay:=_
            "" & .Paste
        End With
End Sub