Onderstaand code werkt.
Nu moet er rond de For loop nog een 2e For loop, om zo door 5 verschillende kolommen te loopen.
Het pobleem situeert zich:
Ik wil deze converteren naar een range met Cells, zodat ik ipv "A" een kolom getal kan invoeren.
Als dat lukt kan ik de 2e FOR loop wel aan.
Alle pogingen tot hier toe zijn mislukt.
Kan iemand me wegwijs helpen?
Code:
Sub Menu_Links()
For i = 1 To 15
ActiveSheet.Shapes("Link_" & i).Select
Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 10
StartCell = -30 + (i * 40) - 1
StopCell = StartCell + 34
Debug.Print StartCell & " - " & StopCell
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection.ShapeRange.Item(1), _
Address:="", _
SubAddress:="A" & StartCell & ":A" & StopCell, _
ScreenTip:=" "
Next i
End Sub
Nu moet er rond de For loop nog een 2e For loop, om zo door 5 verschillende kolommen te loopen.
Het pobleem situeert zich:
Code:
SubAddress:="A" & StartCell & ":A" & StopCell, _
Ik wil deze converteren naar een range met Cells, zodat ik ipv "A" een kolom getal kan invoeren.
Als dat lukt kan ik de 2e FOR loop wel aan.
Alle pogingen tot hier toe zijn mislukt.
Kan iemand me wegwijs helpen?