right click on sheet tabview codeleft window select worksheetright window
select double_click

Sample
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
Else
Sheets(ActiveCell.Value).Select
End If
Application.DisplayAlerts = True
End Sub
--
Don Guillett
SalesAid Software

"bimseun" wrote in message
...
How do i insert hyperlink so that users would not have to "press ctrl
click"
but rather just click to get to the desire folder or file?
oro ago