mowen,

Because the Target.Address does not equal "$j$2".
Either change the lowercase j to upper case or add
"Option Compare Text" to the top of the module.

Jim Cone
San Francisco, USA


"mowen"

wrote in message

Why wouldn't this macro work when I copy it to the module?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$j$2" Then
On Error Resume Next
Application.EnableEvents = False
Me.Name = Target.Value
Application.EnableEvents = True
End If
End Sub
Rune
mowen