Why does the following code stop running when it reaches
Range("A1:A1000").Select





Application.DisplayAlerts = False

Range("D8:J900").Select
Selection.Copy
Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"\\office\shareddocs\My Documents\Excel books 2005\PForm.xls"
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1:A1000").Select
Selection.Replace What:="2", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False


Thank you if can help.
Pat