View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Don Guillett[_2_] Don Guillett[_2_] is offline
external usenet poster
 
Posts: 1,522
Default how do I drag and fill hyperlinks?

Instead of all of that overhead simply right click sheet tabview
codeinsert this. Now when you double click on any cell with a ! in the
value such as sheet2!a1, you will go there. So enter sheet2!a5 and copy
down. NO hyperlinks.

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)

On Error Resume Next
whereat = InStr(ActiveCell, "!")
ms = Left(ActiveCell, whereat - 1)
mc = Mid(ActiveCell, whereat + 1, 9999)
Application.Goto Sheets(ms).Range(mc)
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"coreygreat" wrote in message
...
I have a master lists of document names that I'm trying to hyperlink
sections
to different sheets in the same workbook. I can't seem to figure out how
to
drag and fill the hyperlink in a section of the column of the mastersheet,
and sequentially fill down (=sheet2!A5) to (=sheet2!A6)...and so
on...linking
to sequential cells in a different worksheet. Right now, I have to 'edit
hyperlink' and change the cell value each time...I have 3000 to do! Thank
you for your help.