compile error:
invalid or unqualified reference

Sub APPLES()
'COPY OP FNAME & PASTE

Sheets("Correct").Select
Range("g2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Errors").Select
Range("AA6500").Select
Selection.End(xlUp).Select
.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

The line

.Offset(1, 0).Select

needs to qualified by a preceding With statement. Eg.,

With Selection
.Offset(1,0).Select
End With

or just

Selection.Offset(1,0).Select

Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com



On Mon, 22 Feb 2010 13:43:45 -0800 (PST), "J.W. Aldridge"
wrote:

compile error:
invalid or unqualified reference

Sub APPLES()
'COPY OP FNAME & PASTE

Sheets("Correct").Select
Range("g2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Errors").Select
Range("AA6500").Select
Selection.End(xlUp).Select
.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Your error was caused by the line being too long and you didn't use a
line continuation character (underscore) to joingn the line. Here is
how I would write the macro


Sub APPLES()
'COPY OP FNAME & PASTE

With Sheets("Correct")
LastRow = .Range("G2").End(xlDown).Row
Range("G2:G" & LastRow).Copy
End With

With Sheets("Errors")
LastRow = .Range("AA" & Rows.Count).End(xlUp).Row
Newrow = LastRow + 1
Range("AA" & Newrow).PasteSpecial _
Paste:=xlValues
End With
End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=181580

Microsoft Office Help