Excel: VBA til automatisk celle navn

Rem VBA-koden indsættes i det relevante Ark (HøjreKlik på Ark/Vis VBA-kode)
Public Sub OpretNavne()
    sidsterække = ActiveCell.SpecialCells(xlLastCell).Row
    For ræk = 1 To sidsterække
        tekst = Cells(ræk, 1)
        If tekst <> "" Then
            opretNavn tekst, ræk
        End If
    Next ræk
End Sub
Private Sub opretNavn(Navn, række)
    Range(Cells(række, 1), Cells(række, 2)).Select
    Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
        False
End Sub

Hejsa,
tak for det...
Har indsat foelgende kode, og koerer den via Alt+F8
Public Sub OpretNavne()
    sidsteraekke = ActiveCell.SpecialCells(xlLastCell).Row
    For raek = 1 To sidsteraekke
        tekst = Cells(raek, 1)
        If tekst <> "" Then
            opretNavn tekst, ræk
        End If
    Next raek
End Sub
Private Sub opretNavn(Navn, raekke)
    Range(Cells(raekke, 1), Cells(raekke, 2)).Select
    Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:= _
        False
End Sub

Eneste aendring er at jeg erstattet æ med ae
Men det eneste resultat er en box med stort roedt kryds og 400
Har aldrig set en fejlmeddelelse som den foer :-)

Og saa kan jeg saa laere at bruge search/replace! Lige efter jeg postede, saa jeg et enkelt æ der ikke var blevet aendret. Nu virker det helt efter hensigten!

Takker for hjaelpen!

Det var godt det lykkedes - og selv tak...