Trying that in the Immediate Window gave me the same error. However,
this did work:

Worksheets("Country Records").Range("a5").Select
With ActiveCell
.End(xlDown).Select
.Offset(2, 0).Select
End With



*** Sent via Developersdex http://www.developersdex.com ***