Add Hyperlink to cell using VBA

Dear all,

Is it possible to make a cell hyperlinked to samesheet..?

I have recorded a macro below, When i run this procedure it makes the cell hyperlinked. But when i key-in in some other procedure, its doent make it hyperlinked.
I need to keyin this code in some other module, which at the end must make the cell hyperlinked

Any suggestions..?

Sub Macro1()'
' Macro1 Macro
'




'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Report!B6"
End Sub