navn fra celle til faneblad

Privat Sub Worksheet_Change(byval Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.Name = Activesheet.Range("a1").Value
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.Name = ActiveSheet.Range("a1").Value
End If
End Sub


der manglede lige et e i Private

Når jeg taster det ind bliver denne linie gul
ActiveSheet.Name = ActiveSheet.Range("a1).Value

fejl der mangler "a1"

Når jeg taster det ind bliver denne linie gul
ActiveSheet.Name = ActiveSheet.Range("a1).Value

ActiveSheet.Name = ActiveSheet.Range("a1").Value

du skal have " på hver sida af A1

Nu er den er nummer 2 linie gul er jeg inde det rigtige sted og skrive det??????

Hvorfor skrive det, du kan jo bare kopiere denne kode

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.Name = ActiveSheet.Range("a1").Value
End If
End Sub


du skal højreklikke på fanen på det ark den skal virke i, vælg vis programkode.
Der skal den være

hej kabbak nu virkede det tak for din hjælp
men kan du ikke sende en kommentar så jeg kan give dig dine point

et svar ;-))

Hvor prøvede du på at sætte koden ind. ?

jeg havde været inde i Viwe code i stedet for insæt moduel

hvorfor kan jeg ikke komme ind og give dig point
eller er det bare mig der er DUM
P.s Det er også kun 2 gang jeg er inde på Experten
Håber du kan tilgive mig hvis det ikke lykkes

jeg har fået, tak