Anyone know why I'm getting this error when calling this macro?

[Lostcar]

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$J$1" Then
Call SaveValues
End If

End Sub


Hoping i attached the image...

Compile error.png

The Module runs fine by itself

[eljorge]

Does SaveValues have required parameters? If not, try without "Call"

[Lostcar]

Thanks Jorge, Hmm.. does seem to work either.

My other module is this:
Sub SaveValues()
ActiveSheet.Copy
Cells.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

[eljorge]

The code you posted works for me. Do you have a private statement in your Module?

Try taking the savevalues sub and putting it on the same worksheet . It should work. Or check that your module doesnt have "Option Private Module".

[eljorge]

Oh, I know what it is. Your module is named the same as the procedure "SaveValues". Change the module name and it should work

[Lostcar]

YES! That's it! Thank you Jorge! (Changed name of module.)