try

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("G7")) Is Nothing Then Exit Sub
ActiveSheet.Name = Worksheets("List").Range("D15").Value
End Sub







"claudio" skrev:

> I want the active worksheet to be renamed if the user changes cell G7.
> The name comes from worksheet "List", cell D15 (this part works).
>
> The following code has no effect:
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> If Target.Address = "$G$7" Then ActiveSheet.Name =
> Worksheets("List").Range("D15").Value
> End Sub
>
> What am I doing wrong?