From one I use on a menu sheet. Right click the sheet tabview
codecopy/paste this. Since you have the sheet number in column M this works
if you click on any number in column M

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tofimoon4" wrote in message
...

Dear sir,with best regards,i have in attached file ( main ) sheet and
about (26) sheets with nos.(1-18),each no.equal to (agent ) name as an
abbreviation to decrease the areas,i ask your goodselves if there is a
code to take me directly to any agent sheet when i press its no. or name
from the ( main) sheet? i mean ( if i want to go to (R) sheet i must
press (R) from the scheduale in main sheet ), iwant to do this because i
have about (50) agents with serial nos. and it is difficult to guess
there sheets nos.without taking a look to the scheduale.this is the
first . the second , is it possible to amend the code to transfer (2or3)
invoices details to each sheet with (2or3)agents names?i mean one sheet
for (2or3) agents.
Thanking you in advance.


+-------------------------------------------------------------------+
|Filename: new.zip |
|Download:
http://www.thecodecage.com/forumz/attachment.php?attachmentid=163|
+-------------------------------------------------------------------+

--
tofimoon4
------------------------------------------------------------------------
tofimoon4's Profile:
http://www.thecodecage.com/forumz/member.php?userid=138
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=105608