Ifølge hjælpe funktionen i Excell, kan arknavnet kun angives statistik, altså du er nødt til at gøre det manuelt, istedet for at den retter sig efter en celleværdi.
Public Sub test() For Each ws In Worksheets If Sheets(ws.Name).Cells(1, 1).Value <> "" Then Sheets(ws.Name).Name = Sheets(ws.Name).Cells(1, 1).Value End If Next End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.