Hi Hilary,
Please Hope this may be help full for you.
Public Sub TestLink()
Dim ShtCount As Integer
Dim intStartpos As Integer
Dim intCtr As Integer
Dim i As Integer
With ThisWorkbook
i = 1
ShtCount = .Worksheets.Count
intStartpos = InputBox("Please Enter Start Position", "Starting
point")
For intCtr = intStartpos To ShtCount
.Sheets(1).Cells(i, 1).Select
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:= _
"'" & .Sheets(intCtr).Name & "'" & "!A1",
TextToDisplay:=Sheets(intCtr).Name
i = i + 1
Next
End With
End Sub
Regards
Prince
On Tuesday, January 29, 2013 6:44:16 PM UTC+5:30, hilary lomotey wrote:
>
> Sub CreateLinksToAllSheets()
> Dim sh As Worksheet
> Dim cell As Range, i As Long, j As Long
> i = 1
> j = 1
>
> For Each sh In ActiveWorkbook.Worksheets
> If ActiveSheet.Name <> sh.Name Then
> Cells(j, i).Select
> ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="",
> SubAddress:= _
> "'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
> j = j + 1
> If j Mod 31 = 0 Then
> i = i + 1
> j = 1
> End If
> End If
> Next sh
> End Sub
>
>
> Hello Friends,
>
> the above code is perfect if you have several sheets and you want to
> create links to all the sheet by 30 rows apiece, however you may have some
> codes in one or some worksheet which you dont want to create links to, so
> if i want this code to be adjusted so that the links will start from say
> the 4th sheet up to the end, is it possible. thanks
>
--
Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.
