Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then Application.CommandBars(PROJECT_NAME).Controls(1).Text = [a1] End IfEnd Sub