UN comment the

Else

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
Ok. You may have to delete or comment out the getworkbook part unless you
want me to post it.
Other than that, if you have

Sheet7

typed into a cell and double click on the cell you will goto sheet7.cell
a4 (change as desired). And, as I said originally, this has to be in the
SHEET code of the worksheet where the name is typed in the cell.

if you have my summary typed into the celldouble click on that to go
there.


This also works
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.DisplayAlerts = False
Dim WantedSheet As String
WantedSheet = Trim(ActiveCell.Value)
If WantedSheet = "" Then Exit Sub
On Error Resume Next
If Sheets(ActiveCell.Value) Is Nothing Then
' GetWorkbook ' calls another macro to do that
' Else
Application.Goto Sheets(ActiveCell.Value).Range("a4")
End If
Application.DisplayAlerts = True
End Sub
--
Don Guillett
SalesAid Software

"Philip J Smith" wrote in message
...
Hi Don

Thanks for your response. I've followed your instructions, but the code
either doesn't work or falls over on the call for GetWorkbook. I think
that
I might be missing something.

Since I don't have that code for GetWorkbook why do I need it the call?

I think that the final line of code puts the cursor in Cell A4 of the
activated sheet, I think that I can change this to any other cell, is
that
true?
Regards


"Don Guillett" wrote:

Why bother. Just put this code in the sheet module where the list is and
double click on the typed name such as

sheet7

to goto shee7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.DisplayAlerts = False
Dim WantedSheet As String
WantedSheet = Trim(ActiveCell.Value)
If WantedSheet = "" Then Exit Sub
On Error Resume Next
If Sheets(ActiveCell.Value) Is Nothing Then
GetWorkbook ' calls another macro to do that
Else
Sheets(ActiveCell.Value).Select
ActiveSheet.Range("a4").Select
End If
Application.DisplayAlerts = True
End Sub

--
Don Guillett
SalesAid Software

"Philip J Smith" wrote in
message
...
Hi.

Could some-one point out the error in the following code please?

I have used the code below to convert sheet names listed as lables
into
hyperlinks, modifications noted in text. As the code was designed to
convert
file links to hyperlinks rather than Worksheet names I have attempted
to
modify it.

When run the code formats the lables as hyperlinks, but when I try to
follow
the link the following error message appears.

"Reference is not Valid"

The worksheets are in the same workbook as their list. I have
hardcoded
the
workbook name, dangerous I know but I will sort that out once I get
the
code
working.

Regards

Phil
----------------------
Sub MakeHyperlinks_B()
'Copied from http://www.mvps.org/dmcritchie/excel...MakeHyperLinks
'on 15 March 2007.
'Modified so that the range is in column B rather than D
'SubAddress Added to ActiveSheet.Hyperlinks
Dim cell As Range, Rng As Range
Set Rng = Range("B2:B" & Cells.Rows.Count). _
SpecialCells(xlConstants, xlTextValues)
If Rng Is Nothing Then
MsgBox "nothing in range"
Exit Sub
End If
For Each cell In Rng
If Trim(cell.Value) < "" Then
ActiveSheet.Hyperlinks.Add Anchor:=cell, _
Address:="SummaryBilledByMonth.xls", _
SubAddress:=cell.Value, _
ScreenTip:=cell.Value, _
TextToDisplay:=cell.Value
End If
Next cell
End Sub
---------------------------