[SOLVED] VBA - Event Change △, Tab Name, Variable Name Tab

[xsoldoutx]

Here is my problem, I would like an Event Change on Sheet2 "Data" tab to change whenever cell A1 is selected to change the tab name on Sheet1 "Jan" currently. Please see attachment included. If someone has another potential suggestion/work-around I'd be willing and open to all opinions. Thanks for your help! Potential problem is that Sheet1's VBA name won't change, but it's Excel name could potentially change from Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec.

I've tried the following formula, but it is not working. If I could have someone who has a better understanding of VBA to help me I would appreciate it.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("$A$1") Then
     With Sheet1
          .name = .Range("A1").Value
     End With
End If

End Sub