excel hyperlink to nothing

Solution 1:

You will be better off using the HYPERLINK() function. You can use it for what you want like this:

=HYPERLINK("#HyperlinkClick()", "Text you want to Display")

Notice the # at the beginning. This is important.

Now create a function called HyperlinkClick:

Function HyperlinkClick()

    Set HyperlinkClick = Selection
    'Do whatever you like here...
    MsgBox "You clicked on cell " & Selection.Address(0, 0)

End Function

Be sure to place this function in a STANDARD CODE MODULE.

That's it.

Solution 2:

I've just founded a solution. If I refer my Inserted Hyperlink to some cell in other sheet and then make it very hidden (xlSheetVeryHidden), it works just perfect. Now my hyperlinks refer to the Neverland and the macro captures them as well. Thank you all for your patiense.

Solution 3:

Good solution Excel Hero but not for everything: I try to make a kind of outline but it's impossible to hide a row in the function: nothing happen! But if a make a direct call to the same code with a button, everything works fine. This is my test:

Function test()

Set test = Selection

 Dim i, j, state As Integer
state = Selection.Value
i = Selection.Row + 1
j = i

If state = "6" Then

    Do Until ActiveSheet.Cells(j, 7).Value = 1 Or ActiveSheet.Cells(j, 4).Value = ""
        j = j + 1
    Loop
    ActiveSheet.Rows(i & ":" & j - 1).EntireRow.Hidden = True
    Debug.Print "test group: " & i & ":" & j - 1
Else
    Do Until ActiveSheet.Cells(j, 7).Value = 1 Or ActiveSheet.Cells(j, 4).Value = ""
        j = j + 1
    Loop
    ActiveSheet.Rows(i & ":" & j - 1).EntireRow.Hidden = False
    Debug.Print "test ungroup: " & i & ":" & j - 1
End If

End Function

My debug.print give me this:

test group: 4:26