Marker alle ark og navngiv

... fra hoften

Hej
Jeg har denne til at ændre navnet med - det dur
Sub Navn()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Select
        If ws.Range("D5") <> "" Then ws.Name = Range("D5")
    Next ws
End Sub

Men hvordan omskriver jeg den, så den laver et link til forsiden Ark1 fra alle ark/faner?

Hej Thor Østergaard
Navngivning fungere perfekt, men den med linket kan jeg ikke få til at virke

prøv denne variant:

Sub Navn()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Select
        If ws.Range("D5") <> "" Then ws.Name = Range("D5")
        ws.Hyperlinks.Add Anchor:=ws.Range("A1"), Address:="", SubAddress:="Ark1!A1", TextToDisplay:="Forsiden"
    Next ws
End Sub

Jan

hej Jan Hansen
Det med navnet virker perfekt, men den indsætter ikke et link til forsiden

sjov det gør det her!!

har du en ver. du kan ligge op eks på dropbox?

Jan

Jeg har fået det til at virke - mange tak for hjælpen

Hej Jan
Kan jeg lave noget VBA der gør at den kun skriver fanenavnet, hvis D5 <> fra en dato?
Sub Navn()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Select
        If ws.Range("D5") <> "" Then ws.Name = Range("D5")
    Next ws
End Sub

mon ikke noget ala

if isdate(ws.range("D5"))=False Then ............

Jan

Hej
Den går i stå efter Then….
If IsDate(ws.Range("B7")) = False Then ws.Name = Range("B7")

Hvis jeg bruger
If IsDate(ws.Range("B7")) = False Then ws.Name = Range("B7")
så navngiver den ingen

hvis jeg bruger
If ws.Range("B7") <> "" Then ws.Name = Range("B7")
så navngiver den alle undtaget sidste ark hvor der står dato og klokkeslæt i B7

hvad med
If IsDate(ws.Range("B7").value) = False Then ws.Name = Range("B7").value

test evt med
msgbox IsDate(ws.Range("B7").value)

sættes ind før if sætningen

Så kan du se om der kommer det svar du ønsker (True/False) for det enkelte ark
sættes ud af kraft med et ' forand sætningen
Jan