Ark navn = celle (fortsat)

Hvorfor overhovedet navngive dem, når navnet alligevel er ligegyldigt.

Det nemmeste må da være bare at lade dem have det navn, de allerede har.

Det kan du klare med:

Sub test()
With ActiveSheet
If Len(.Range("a1").Value) > 0 Then
  .Name = .Range("a1")
End If
End With
End Sub

Du kan også bruge denne her, så er du ret sikker på, at der ikke bliver to ens arknavne:

Else
  .Name = CStr(Mid(Time(), 1, 2) & Mid(Time(), 4, 2) & Mid(Time(), 7, 2))

hvordan kommer den endelige makro så til at se ud ??

Sub test()
with ActiveSheet
if len(.range("a1").value)>0 then
  .Name = .Range("a1")
else
  .Name = CStr(Mid(Time(), 1, 2) & Mid(Time(), 4, 2) & Mid(Time(), 7, 2))End If
End With
End Sub

Edn if skulle selvfølgelig have været ned på sin egen linie.

den fejler på  .Name = .Range("a1")

Prøv med

Sub test()
With ActiveSheet
If Len(.Range("a1").Value) > 0 Then
  .Name = .Range("a1").Value
Else
  .Name = CStr(Mid(Time(), 1, 2) & Mid(Time(), 4, 2) & Mid(Time(), 7, 2))
End If
End With
End Sub

Hmmm

Sub omdøb()
With ActiveSheet
If Len(.Range("a1").Value) > 0 Then
  .Name = .Range("B1").Value
Else
  .Name = CStr(Mid(Time(), 1, 2) & Mid(Time(), 4, 2) & Mid(Time(), 7, 2))
End If
End With
End Sub 
--------------------------
Sub omdøb()
With ActiveSheet
If Len(.Range("B1").Value) > 0 Then
  .Name = .Range("B1")
Else
  .Name = "X3"
End If
End With
End Sub
--------------------
De to linier er helt ens
.... men på den første fejler den på .Name = .Range("B1").Value

I den første undersøger du om A1 er tom, og tager så værdien fra B1, som jo godt kan være tom, selv om A1 ikke er det.

Arrrhhh ..... sorry ... nu tror det er på tide at tage hjem fra arbejde .... så jeg ikke laver flere ulykker

mange tak :o)

Velbekomme!  Ha' en god aften :-)

ILM :o)