Hi,

Am Mon, 21 Oct 2013 15:53:20 -0700 (PDT) schrieb djc:

I am in need of a macro that will go find the data range in each sheet and return the link to those cells, not just the number and return the links (cell reference) to the Master sheet; (each sheet is a quasi-master sheet and edits need to happen in these sheets). Each sheet that needs to roll up is named with a ?J-? as the 2 left characters for easy identification.

if you need hyperlinks in the "Master" sheet to go to the sheets and
ranges with the data then try:

Sub Test()
Dim LRow As Long
Dim wsh As Worksheet

For Each wsh In ThisWorkbook.Worksheets
If Left(wsh.Name, 2) = "J-" Then
With wsh
LRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Sheets("Master").Activate
ActiveSheet.Hyperlinks.Add _
anchor:=Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), _
Address:="", _
SubAddress:="'" & wsh.Name & "'!" & _
Range(Cells(19, "A"), Cells(LRow, "AE")).Address
End With
End If
Next
End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2