VBA koder og Hyperlink

Sub test()

Dim linkNr As Integer

linkNr = Range("A1").Value

Select Case linkNr
    Case Is = 1
        Range("H2").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Range("H5").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Range("H8").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Range("H11").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Range("H345").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Case Is = 2
       
    Case Is = 3
       
    Case Else
       
End Select

End Sub

Hej store-morten

Tak for ovenstående..... nu er jeg bare ikke inde i hvordan jeg skal bruge det, er det muligt og guide mig lidt...

Kopier koden

I Excel, på den fane med link, højre klik nederst på navnet og vælg --> Vis kode
Tryk --> Ctrl + V
Luk på det røde kryds.
Kør markroen: test

Gem regnet med makroer.

hvis du har tid,,,, gider du og smidde det i en ark til mig¨
viborg2000@yahoo,dk

Sendt tester

Sub test()

Dim linkNr As Integer

linkNr = Range("A1").Value

Select Case linkNr
    Case Is = 1
    ActiveWorkbook.FollowHyperlink Address:=Range("F4")
    ActiveWorkbook.FollowHyperlink Address:=Range("F7")
    ActiveWorkbook.FollowHyperlink Address:=Range("H5")
    ActiveWorkbook.FollowHyperlink Address:=Range("H8")
    ActiveWorkbook.FollowHyperlink Address:=Range("H11")
    ActiveWorkbook.FollowHyperlink Address:=Range("h345")

    Case Is = 2
       
    Case Is = 3
       
    Case Else
       
End Select

End Sub