hyperlink in a cell, extracting and jumping

No, that doesn't seem to work either
I'm probably being really stupid so here is a bastardised version of my code.
Can someone spot the mistake?


    With Workbooks("crap_blank.xls").Worksheets("results")
      ' Get the data.
      sourcename = .Cells(sourceRow, sourceCol).Value
    End With
    '
    ' Now access the sheet where the data has to go
    With Workbooks("crap_results.xls").Worksheets("Sheet1")
      ' Match the name with those in the first column

      hyperlinkRow = Application.WorksheetFunction.Match(sourceName, Range(.Cells(1, 1), .Cells(5000, 1)), 0)
      Range(.Cells(hyperlinkRow, 1), .Cells(hyperlinkRow, 1)).Select


ALL THESE HAVE BEEN COMMENTED OUT AS I TRIED VARIOUS COMBINATIONS OF TRYING TO GET WHAT I WANT
WHAT IS THE CORRECT COMBINATION?
OR IS THIS TOTAL RUBBISH?

      'Selection.Hyperlinks(1).SubAddress.Follow NewWindow:=False, AddHistory:=False
      'Range(ActiveCell.Hyperlinks(1).SubAddress).Select
      'Range(Selection.Hyperlinks(1).SubAddress).Select
      'selection.hyperlinks(1).follow newwindow:=false addhistory:=false

    End With

What are the values of "sourceRow" & "sourceCol"?

GSD4ME,

Trying to figure your worksheet data structure: You have A column with names to search and then B column with hyperlinks for corresponding name in the A Column ?

Sample code for that: Change varName value and Sheet name please.

'----Code Start----
Sub Case1()
Dim sht As Worksheet
Dim rng As Range
Dim fnd As Range
Dim varName As String

    Set sht = ThisWorkbook.Worksheets("Sheet1")
    varName = "MyName"

    Set rng = sht.Columns(1)

    Set fnd = rng.Find(varName)
    If Not fnd Is Nothing Then
        fnd.Offset(, 1).Hyperlinks(fnd.Offset(, 1).Hyperlinks.Count).Follow NewWindow:=False, AddHistory:=False
    End If
End Sub
'----Code End----

Or you have both names and hyperlinks in the same column:

'----Sample Code
For Each h in Worksheets("Sheet1").Hyperlinks
    If Instr(h.Name, "MyName") <> 0 Then h.Follow : Exit For
Next h
'----Sample Code

Suat

GSD4ME,

I saw your comment after sending mine.

Try following please.

Selection.Hyperlinks(Selection.Hyperlinks.Count).SubAddress.Follow NewWindow:=False, AddHistory:=False

(Assuming your Match function already returns correct row)
Suat

oops, wrong code:

Selection.Hyperlinks(Selection.Hyperlinks.Count).Follow NewWindow:=False, AddHistory:=False

Suat

OK I'll try these.

If you'll note, the source of the data is held in a row in one workbook.
I read the name from this row and then want to find the corresponding block of data in ANOTHER workbook.

In the second workbook, a worksheet contains the names to match against in column A and each cell in this column has a hyperlink that points to the results for that name (Indirect addressing if you know what I mean).
I just can't get the indirection to work properly

Yes - that works now!   :)

Many thanks for your help

You're welcome!

But just curious:  why B grade ?

Thanks anyway.
Suat

SImply because you took more than one attempt to get the code correct.
I only give an "A" (and I have done in the past) when someone gets it right first time.
Remember the name of the site is "EXPERTS-exchange" but that in no way should belittle anyone's abilities and everyone who takes the time to answer any questions on this site is doing so from a standing start, knowing nothing about what the other person is doing, or in some cases, wanting.

I think the site is great and it has helped me immeasurably over the years. I never fails to amaze me that someone in the world knows the answer to your question, no matter how difficult it is, and I have asked a couple of really horrible questions!

Anyway - enough of my ramblings - do not take the grade "B" to heart - I am still very appreciative of your efforts