Sorry, I misread your message, I think we agree. Here is the changed version. But it really contains more characters, so the version with the Select line is shorter. :-)

Procedure updLabel
  Lparameters p1, p2, p3, p4
  For x=1 to 4
    replace cpplan.expr WITH Evaluate('p'+Transform(x)) in cpplan
    skip in cpplan
  Next
EndProc

>It's so "vital" I don't write ANY replaces without it. ;)
>
>>Oh yes, it's vital if you are at the "ghost" record in the current work area, record number reccount()+1.
>>
>>>No need for the SELECT cpplan if you use the in clause in the replace and skip ;)
>>>
>>>>

>>>>Procedure updLabel
>>>>  Lparameters p1, p2, p3, p4
>>>>  SELECT cpplan
>>>>  For x=1 to 4
>>>>    replace cpplan.expr WITH Evaluate('p'+Transform(x))
>>>>    skip
>>>>  Next
>>>>EndProc
>>>>

>>>>>Is there anyway I can cut this code down maybe using a for statement or something?
>>>>>
>>>>>

>>>>>PROCEDURE UpdLabel
>>>>>	LPARAMETERS lcfieldlabel1, lcfieldlabel2, lcfieldlabel3, lcfieldlabel4
>>>>>	SELECT cpplan
>>>>>	replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel1)+"'" &&lcfieldlabel1
>>>>>	SKIP
>>>>>	replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel2)+"'" &&lcfieldlabel2
>>>>>	SKIP
>>>>>	replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel3)+"'" &&lcfieldlabel3
>>>>>	SKIP
>>>>>	replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel4)+"'" &&lcfieldlabel4
>>>>>ENDPROC
>>>>>