Makro til åbning af hyperlink.

Range("DinCelleMedFormel").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Eller:

Sub ÅbenLink()

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate Worksheets("Opslag").Range("G7").Value
    End With

End Sub

Arket med LOPSLAGET er her kaldt for 'Opslag'

Se eksemplet:

http://gupl.dk/694993/

Hej natkatten.

Din metode virker til at åbne linket.

Kan jeg undgå at Internet Explorer åbnes.
Filerne som skal åbnes ligger på et drev:
D:\Kamishibai\Udskrivningsmetode\Std\Fil 1.xlsm
D:\Kamishibai\Udskrivningsmetode\Std\Fil 2.xlsm
D:\Kamishibai\Udskrivningsmetode\Std\Fil 3.xlsm
D:\Kamishibai\Udskrivningsmetode\Std\Fil 4.xlsm
osv.
osv.

Hej kabbak.

Jeg har skrevet følgende:
Sub A()

Range("O7").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

End Sub

Indholdet af O7 er: =HYPERLINK(LOPSLAG(F7;'Data Kort'!$A$6:$C$9;2;FALSK))
Imidlertid får jeg en Run-time error '9' "Subscript out of range".
Hvad gør jeg forkert?

Måske kan denne gøre det:

Sub ÅbenLink()

Workbooks.Open Filename:=Range("O7").Value

End Sub

Henviser til at dit LOPSLAG er i cellen O7

Har ikke testet det!

Hej Natkatten.

Det virker :-)
Sender du et svar?

Et svar

/natkatten