I have some code that obviously works outside a Worksheet Change Event.
Range("CopyRow").Copy Destination:=Sheets("Current Task LIST").Cells(651,
When I put in a change event, I get the dreaded Run-time error '1004'.
Method 'Range' of object'_Worksheet'
Here is the first part of code:
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
Dim OLook As Object 'Outlook.Application
Dim Mitem As Object 'Outlook.Mailitem
Dim MsgBody As String
Dim Trow As Integer
Dim SendAnEmail As Boolean
If Not Intersect(Target, Range("a2:a2000")) Is Nothing Then
Application.EnableEvents = False
Range("CopyRow").Copy Destination:=ActiveSheet.Cells(Target.Row, 1)
Can I not copy to something that is outside of the Intersect Range?
Range("CopyRow") is about a 1 row, 10 column block of cells.. (really just
blank cells with formatting and valadations built in).
Copyright © 2001-2012 GNT Media