Error using offset

[J.W. Aldridge]

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

 

[Chip Pearson]

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