Code Problem
I'm running this code to select from one worsheet a row that places
data on another sheet. The code works great until I click on a blank
row. I get a run time error subscript out of range. Here is the code
can anyone help?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count 1 Then Exit Sub
Application.EnableEvents = False
*Debugshere Target.EntireRow.Copy Worksheets(Cells(Target.Row,
1).Value).Rows(1)
Application.EnableEvents = True
End Sub
|