Index beginnen in specifieke cel

[Senso]

Ik wil deze INDEX in bijvoorbeeld cel E16 laten beginnen. Wat moet er dan gewijzigd worden in de VBA-code?

Sub Hlinks()

For i = 2 To Worksheets.Count
LR = Range("B" & Rows.Count).End(xlUp).Row + 1
Blad1.Hyperlinks.Add Range("B" & LR), "", "'" & Sheets(i).Name & "'!A1", , Sheets(i).Name
Next i
End Sub

 

[emields]

lr vervangen door E16

 

[roeljongman]

de "B" in de ranges veranderen in "E"
en dan zorgen dat E15 de laatst gevulde cel is in de sheet dan zal LR beginnen op E16 omdat de eerste lege cel is

 

[snb]

Je code bevat geen index.
Je toelichting is te summier.
Als je je aanwent nooit spaties te gebruiken in werkbladnamen wordt de code eenvoudiger.

Sub M_snb()
   For j = 2 To sheets.Count
     Blad1.Hyperlinks.Add Blad1.cells(14 + j, 5), "", replace("'~'!A1","~",Sheets(j).Name), , Sheets(j).Name
   Next
End Sub

 

[Senso]

Die van Roeljongman werkt perfect en is voldoende. Bedankt voor de hulp.:thumb:

 

[Senso]

Klein probleem. Ik heb een blad genaamd:
+btw
en het andere blad
-btw

-btw wordt goed overgenomen maar +btw komt #NAAM? te staan. Wat is de oorzaak en hoe los ik dat op?
Ik zie dat die onder Hyperlink bewerken als '+btw' staat maar in de bladnaam staan geen '

Oké, opgelost. Ik heb bij beide een spatie er voor gezet.