Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count 1 Then Exit Sub
Application.EnableEvents = False
Target.EntireRow.Copy Worksheets(Cells(Target.Row,1).Value).Rows(1)
Application.EnableEvents = True
End Sub

This worked great except when I click on a blank cell I get......

Run-Time error '9':

Subscript out of range


--
tomc112
------------------------------------------------------------------------
tomc112's Profile: http://www.excelforum.com/member.php...o&userid=16816
View this thread: http://www.excelforum.com/showthread...hreadid=320131