tabblad hernoemen uitsluiten

[vrouw]

Hallo.

Ik heb onderstaande code waarbij ieder tabblad de naam krijgt van de waarde in cel A10.
Nu is er echter één tabblad (tabblad data) wat uitgesloten moet zijn van die aktie.
Hoe kan ik dat voorkomen?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("A10")) Is Nothing Then Sh.Name = Range("A10").Text
On Error GoTo 0
End Sub

 

[namliam]

iets als...
if acivesheet.name = "Data" then "do nothing"

Else
rename
endif

 

[edmoor]

Als uitbreiding op de vorige reactie:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next

    If Not Application.Intersect(Target, Range("A10")) Is Nothing Then
        If Sh.Name <> "Data" Then
            Sh.Name = Range("A10").Text
        End If
    End If

    On Error GoTo 0
End Sub

 

[vrouw]

Als ik die regen invoeg in de bestaande code word die regel rood. iets niet goed dus?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
[COLOR="#FF0000"]if acivesheet.name = "Data" then "do nothing"[/COLOR]
If Not Application.Intersect(Target, Range("A10")) Is Nothing Then Sh.Name = Range("A10").Text
On Error GoTo 0
End Sub

 

[edmoor]

Ik plaatste een reactie terwijl jij aan het reageren was
Zie #3.

 

[vrouw]

Ja, dat klopt.
Ook de formule klopt zo, Thans:thumb:

 

[namliam]

Mijn code was natuurlijk pseudo code :/