Run-time error '1004': Application-defined or object-defined error

Hi guys,

I am trying to run macro through hyperlink and when trying to do that its giving me a run time error. Below is the code that i am trying to implement.

Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

If Not Intersect(Range(Target.parent.Address), Range("$I$4:$I$5000")) Is Nothing Then
    Dim rng As Range
    ActiveCell.Offset(0, -7).Copy
    Set rng = Sheets("Sheet1").Range("A1")
    rng.Offset(0, 0).Paste
    MacroName
    Exit Sub
End If

End Sub

its giving me an error at the following code->

    ActiveCell.Offset(0, -7).Copy

Currently I have enabled the following references:

Visual Basic For Application
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library
Microsoft Forms 2.0 Object Library
Windows Script Host Object Model

thanks in advance guys...

Cheers
plasma33

its working guys....here is the modified code->

Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

If Not Intersect(Range(Target.parent.Address), Range("$I$4:$I$5000")) Is Nothing Then
    Sheets("Sheet2").Select
    ActiveCell.Offset(0, -7).Copy
    Sheets("Sheet1").Select
    Sheets("Sheet1").Range("A1").Select
    ActiveSheet.Paste
    MacroName
    Exit Sub
End If

End Sub

Cheers
plasma33