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

**xsoldoutx** · 08-05-2012, 11:27 PM

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

**Cutter** · 08-05-2012, 11:50 PM

@ xsoldoutx

Welcome to the forum.

Please notice that code tags have been added to your post(s). The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at top of the page and read Rule #3.
Thanks.

**xsoldoutx** · 08-06-2012, 12:08 AM

Thank you Cutter, I apologize for the lack of Code tags (tried to highlight it in blue). I have located the # [Code] tags and will use them in future posts. Thanks again!

**xsoldoutx** · 08-06-2012, 08:05 AM

Maybe this problem was more difficult than I had expected.

**JosephP** · 08-06-2012, 10:14 AM

I reckon

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Sheet1.Name = Range("A1").Value
    End If
End Sub

if you meant to name Sheet1 after A1 on the data sheet, not A1 on Sheet1