Using event code code.

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
Const WS_RANGE As String = "A1:A80"
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Workbooks.Open Filename:= _
"C:\Program Files\Microsoft Office\Exceldata\Book1.xls"
ActiveWorkbook.Sheets(Target.Value).Activate
End If
End Sub

Edit the path and filename to suit.


Gord Dibben MS Excel MVP



On Tue, 10 Nov 2009 11:06:02 -0800, Romileyrunner1
wrote:

Hi,
is there a way to hyperlink from one workbook to a specific worksheet in
another workbook.
I have a collumn of numbers from 1-80.
I would like to click on each cell and be taken to a corresponding worksheet
numbered 1-80 ina diffferent workbook.
I can easily go to that workbook but I can`t specify the worksheet: it just
takes me to the last viewed worksheet.

Any ideas guys?
Thanks
RR1