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
------------------------------------------------------------------------
mowen's Profile: http://www.excelforum.com/member.php...fo&userid=8463
View this thread: http://www.excelforum.com/showthread...hreadid=466759