Range kolom A invoegen

[Senso]

Wie wil hier de Range invoegen. De Range is kolom A en moet voor alle sheets gelden.

Sub OpenHyperLinks()
    Dim xHyperlink As Hyperlink
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "Open Multiple Hyperlinks"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each xHyperlink In WorkRng.Hyperlinks
        xHyperlink.Follow
    Next
End Sub

 

[Warme bakkertje]

Ik begrijp niet goed waar je eigenlijk heen wil want het 1ste argument van Application.InputBox is de Prompt en dat is een verplichte TextString.

 

[edmoor]

Wel met Type:=8.
Dus een cel of een range van cellen.