Macro werkt niet vanop een ander werkblad

[Dedeke]

Hoi hoi,

Heb het volgende probleem.
Een macro die ik aanroep via een cmdbtn werkt perfect als deze van het werkblad "Data" wordt geactiveerd.
Als ik deze macro vanop een ander werkblad activeer, ook met een cmdbtn werkt deze niet.

Code Macro:

  Sub MyRenameSheets1()

    Dim Lrow As Long
    Dim r As Long
    Dim prevNm As String
    Dim newNm As String
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    Set ws = Sheets("Data")
'   Find last row in column A on Summary sheet with data
    Lrow = Cells(Rows.Count, "E").End(xlUp).Row
    
   
'   Loop through all rows on Summary sheet starting on row 2
    For r = 2 To Lrow
'       Capture values
        prevNm = ws.Cells(r, "A")
        newNm = ws.Cells(r, "E")
'       Rename sheets
        If newNm <> Empty Then
            
            On Error Resume Next
            Sheets(prevNm).name = newNm
                If Err.Number > 0 Then
                    
                    MsgBox "Error found: " & Err.Description
                    
                Else
                    
                    If prevNm <> newNm Then ws.Cells(r, "A") = newNm
                
                End If
            On Error GoTo 0

        End If

    Next r
    ws.Range("E2:E12" & Lrow).ClearContents
    Application.ScreenUpdating = True
End Sub

Code die gebruikt is op beide comdbtn:

Private Sub CommandButton3_Click()
Call MyRenameSheets1
End Sub

Iemand die me kan vertellen waar het fout loopt.

 

[edmoor]

Het is de bedoeling dat deze alleen op het blad Data werkt maar gestart kan worden vanaf een ander blad?
En plaats een voorbeeld documentje.

 

[Dedeke]

To edmoor

Alvast bedankt voor de reactie.

De wijziging dient inderdaad op het blad "Data" te gebeuren maar ik wil dit laten aansturen door de gebruiker vanuit het blad Start dmv van de button NewName.
In de bijgevoegde file zitten nog wel wat andere tryouts in waar je geen rekening mee dient te houden.
De macro zou dus op het Blad "Data" de namen die in de kolom "NewName" komen te staan moeten verplaatsen naar de kolom Naam en dan de tabbladen van de gewijzigde namen aanpassen.

Dit werkt dus perfect vanop het blad "Data" maar niet vanop het blad "Start"

Hopelijk verduidelijkt dit alles een beetje