VBA Excel Start med at kopiere navn fra ark3

Jeg har nogle makroknapper i ark 2, som jeg gerne vil have skal tage navnene fra ark 3 og frem. Hvordan gør jeg så x ikke starter med ark 1 men i stedet vælger ark 3 (den får navnene fra ark 1, hvor de gamle navne står i a2-a4 og de nye navne står i b2-b4 - ark1 = "Navne" - ark2 = "Knapper")?

Sub Test()

Dim gamlenavne As Range
    Dim c As Range
    Dim S As Shape
    Dim i As Integer
    Dim x As Integer
   

    Set gamlenavne = Worksheets("Navne").Range("A2:a4")
  For Each c In gamlenavne
      Worksheets(c.Value).Name = c.Offset(0, 1)
    c.Value = c.Offset(0, 1)

Worksheets("Knapper").Select
   
On Error Resume Next
    For x = 1 To Sheets.Count
 
Debug.Print x
        ActiveSheet.Shapes(x).Select
        Selection.Characters.Text = Sheets(x).Name
        Next
    Next
End Sub