How I decode VBA with Change sheet name from cell A2

Dear
Kindly revise my code not work after change sheet name from cell name
Step
1.If change name Worksheet("INPUT") in Colum A2 suach as "U21-U21"
2.Change name at Work sheet("1") = same name in worksheet("INPUT") in Colum A2 suach as "U21-U21"
Remake
Name in Worksheet("INPUT") at colum "A2" can change name any time depends on what I wrote

Thank you

Private Sub CommandButton1_Click()
Dim my As Range ' Variable declaration at cell traget
With Worksheets("INPUT")
    Set my = .Parent.Worksheets(.Range("a2").Value).Worksheets(1).Name = "A2"
    
End Sub